(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    698882,      14846]
NotebookOptionsPosition[    691337,      14712]
NotebookOutlinePosition[    691759,      14729]
CellTagsIndexPosition[    691716,      14726]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Initialize", "Section",
 CellChangeTimes->{{3.97260094280937*^9, 
  3.972600943654233*^9}},ExpressionUUID->"8bc885e8-b020-471c-86e2-\
7c36b1e020a6"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"Plot", ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
    RowBox[{"PlotLabels", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "->", "250"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"ListPlot", ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
    RowBox[{"PlotLabels", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "->", "250"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"ListLinePlot", ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
    RowBox[{"PlotLabels", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "->", "250"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"RegionPlot", ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
    RowBox[{"PlotLabels", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "->", "250"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"colors", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<DefaultPlotStyle\>\"", "/.", 
       RowBox[{"(", 
        RowBox[{"Method", "/.", 
         RowBox[{"Charting`ResolvePlotTheme", "[", 
          RowBox[{"\"\<Scientific\>\"", ",", "ListLinePlot"}], "]"}]}], 
        ")"}]}], ")"}], "/.", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"x_", ",", "__"}], "]"}], "\[RuleDelayed]", "x"}]}], ")"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"Plot", ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<CMU Serif\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"NPDF", "[", 
    RowBox[{"t_", ",", "\[Mu]_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"PDF", "[", 
     RowBox[{
      RowBox[{"NormalDistribution", "[", 
       RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", "x"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"x", "\[Rule]", "t"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NCDF", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"CDF", "[", 
     RowBox[{
      RowBox[{"NormalDistribution", "[", "]"}], ",", "x"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"x", "\[Rule]", "t"}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"NSolveValues", "::", "ifun"}], "MessageName"], " ", "]"}], ";", 
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"NIntegrate", "::", "eincr"}], "MessageName"], 
     StyleBox["]", "MessageName"]}], 
    StyleBox[";", "MessageName"], 
    RowBox[{"Off", "[", 
     RowBox[{"NIntegrate", "::", "nlnum"}], "]"}], ";", 
    RowBox[{"Off", "[", 
     RowBox[{"Part", "::", "partw"}], "]"}], ";", 
    RowBox[{"Off", "[", 
     RowBox[{"FindRoot", "::", "lstol"}], "]"}], ";", 
    RowBox[{"Off", "[", 
     RowBox[{"NIntegrate", "::", "izero"}], "]"}], ";", 
    RowBox[{"Off", "[", 
     RowBox[{"NIntegrate", "::", "ncvb"}], "]"}], ";", 
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"NIntegrate", "::", "slwcon"}], "MessageName"], "]"}], ";", 
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"General", "::", "munfl"}], "MessageName"], "]"}], ";", 
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"NIntegrate", "::", "inumr"}], "MessageName"], "]"}], ";", 
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"NIntegrate", "::", "inumri"}], "MessageName"], "]"}], ";", 
    RowBox[{"Off", "[", 
     StyleBox[
      RowBox[{"Power", "::", "infy"}], "MessageName"], 
     StyleBox["]", "MessageName"]}], 
    StyleBox[";", "MessageName"], 
    StyleBox["\[IndentingNewLine]", "MessageName"], 
    StyleBox[
     RowBox[{"Off", "[", 
      RowBox[{"Infinity", "::", "indet"}], "]"}], "MessageName"], 
    StyleBox[";", "MessageName"], 
    RowBox[{
     StyleBox["Off", "MessageName"], 
     StyleBox["[", "MessageName"], 
     StyleBox[
      RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], "]"}], ";", 
    RowBox[{"Off", "[", 
     RowBox[{"FindRoot", "::", "nlnum"}], "]"}]}], "]"}], ";", 
  RowBox[{"Off", "[", 
   StyleBox[
    RowBox[{"NIntegrate", "::", "slwcon"}], "MessageName"], 
   StyleBox["]", "MessageName"]}], 
  StyleBox[";", "MessageName"]}], "\n", 
 RowBox[{
  StyleBox[
   RowBox[{"Off", "[", 
    RowBox[{"FindRoot", "::", "sszero"}], "]"}], "MessageName"], 
  StyleBox[";", "MessageName"], 
  StyleBox[
   RowBox[{"Off", "[", 
    RowBox[{"NIntegrate", "::", "ncvb"}], "]"}], "MessageName"], 
  StyleBox[";", "MessageName"], 
  RowBox[{"Off", "[", 
   RowBox[{"NIntegrate", "::", "nlim"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"gU", "[", 
    RowBox[{"\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "T_"}], "]"}], "=", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"T", "-", "\[Mu]\[Beta]"}], ")"}], "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["\[Sigma]\[Beta]", "2"]}]]}]], " ", 
      "\[Sigma]\[Beta]"}], 
     SqrtBox[
      RowBox[{"2", " ", "\[Pi]"}]]], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[Mu]\[Beta]", " ", 
     RowBox[{"Erfc", "[", 
      FractionBox[
       RowBox[{"T", "-", "\[Mu]\[Beta]"}], 
       RowBox[{
        SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gL", "[", 
    RowBox[{"\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "T_"}], "]"}], "=", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"\[Mu]\[Beta]", "-", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"T", "-", "\[Mu]\[Beta]"}], ")"}], "2"], 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]\[Beta]", "2"]}]]}]], " ", 
       SqrtBox[
        FractionBox["2", "\[Pi]"]], " ", "\[Sigma]\[Beta]"}], "+", 
      RowBox[{"\[Mu]\[Beta]", " ", 
       RowBox[{"Erf", "[", 
        FractionBox[
         RowBox[{"T", "-", "\[Mu]\[Beta]"}], 
         RowBox[{
          SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"econd", "[", 
    RowBox[{
    "T_", ",", "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",",
      "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", 
     "\[Lambda]G_"}], "]"}], "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"T", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["\[Kappa]", "\[Lambda]G"], " ", 
         RowBox[{"gL", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], "]"}]}],
         "+", "zG", "-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["\[Kappa]", 
            RowBox[{"1", "-", "\[Lambda]G"}]], " ", 
           RowBox[{"gU", "[", 
            RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], 
            "]"}]}], "+", "zB"}], ")"}]}], ")"}], 
      SuperscriptBox["\[Sigma]C", "2"]}], "+", 
     RowBox[{"\[Kappa]", 
      RowBox[{"(", 
       FractionBox[
        RowBox[{
         RowBox[{"NCDF", "[", 
          FractionBox[
           RowBox[{"T", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], "]"}], "-",
          "\[Lambda]G"}], 
        RowBox[{"\[Lambda]G", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Lambda]G"}], ")"}]}]], ")"}], 
      SuperscriptBox["\[Sigma]M", "2"]}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"INCDF", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", "\[Mu]\[Beta]_", ",", 
     "\[Sigma]\[Beta]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"InverseCDF", "[", 
     RowBox[{
      RowBox[{"NormalDistribution", "[", 
       RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}], ",", "x"}], 
     "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"x", "\[Rule]", "t"}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"effic", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "zG_", ",", "zB_", ",", 
     "\[Kappa]_", ",", "\[Lambda]G_"}], "]"}], "=", 
   RowBox[{"Boole", "[", 
    RowBox[{
     RowBox[{"zG", "+", 
      RowBox[{
       FractionBox["\[Kappa]", "\[Lambda]G"], "*", 
       RowBox[{"gL", "[", 
        RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
         RowBox[{"INCDF", "[", 
          RowBox[{"\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}],
           "]"}]}], "]"}]}], "-", "zB", "-", 
      RowBox[{
       FractionBox["\[Kappa]", 
        RowBox[{"1", "-", "\[Lambda]G"}]], "*", 
       RowBox[{"gU", "[", 
        RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
         RowBox[{"INCDF", "[", 
          RowBox[{"\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}],
           "]"}]}], "]"}]}]}], "<", "0"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"eq", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",", 
     "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", 
     "\[Lambda]G_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "initcond", "}"}], ",", "\n", 
     RowBox[{
      RowBox[{"initcond", "=", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"\[Lambda]G", ">", 
          RowBox[{"1", "/", "2"}]}], ",", 
         RowBox[{"\[Mu]\[Beta]", "+", 
          RowBox[{".2", "\[Sigma]\[Beta]"}]}], ",", 
         RowBox[{"\[Mu]\[Beta]", "-", 
          RowBox[{".2", "\[Sigma]\[Beta]"}]}]}], "]"}]}], ";", "\n", 
      RowBox[{
       RowBox[{
        RowBox[{"effic", "[", 
         RowBox[{
         "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "zG", ",", "zB", ",", 
          "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "*", 
        RowBox[{"INCDF", "[", 
         RowBox[{"\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
         "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"effic", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "zG", ",", "zB", ",", 
            "\[Kappa]", ",", "\[Lambda]G"}], "]"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"ts", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"econd", "[", 
              RowBox[{
              "ts", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
               "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
               "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "==", "0"}], ",", 
            RowBox[{"{", 
             RowBox[{"ts", ",", "initcond"}], "}"}]}], "]"}]}], ")"}]}]}]}]}],
     "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"effval", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", 
     "\[Lambda]G_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"NSolveValues", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"zG", "+", 
        RowBox[{
         FractionBox["\[Kappa]", "\[Lambda]G"], "*", 
         RowBox[{"gL", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
           RowBox[{"INCDF", "[", 
            RowBox[{
            "\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
            "]"}]}], "]"}]}], "-", "zB", "-", 
        RowBox[{
         FractionBox["\[Kappa]", 
          RowBox[{"1", "-", "\[Lambda]G"}]], "*", 
         RowBox[{"gU", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
           RowBox[{"INCDF", "[", 
            RowBox[{
            "\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
            "]"}]}], "]"}]}]}], "==", "0"}], ",", "\[Sigma]\[Beta]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"effvalzG", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "zB_", ",", "\[Kappa]_", ",",
      "\[Lambda]G_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"NSolveValues", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"zG", "+", 
        RowBox[{
         FractionBox["\[Kappa]", "\[Lambda]G"], "*", 
         RowBox[{"gL", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
           RowBox[{"INCDF", "[", 
            RowBox[{
            "\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
            "]"}]}], "]"}]}], "-", "zB", "-", 
        RowBox[{
         FractionBox["\[Kappa]", 
          RowBox[{"1", "-", "\[Lambda]G"}]], "*", 
         RowBox[{"gU", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
           RowBox[{"INCDF", "[", 
            RowBox[{
            "\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
            "]"}]}], "]"}]}]}], "==", "0"}], ",", "zG"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"effval\[Lambda]G", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "zG_", ",", "zB_", ",", 
     "\[Kappa]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"zG", "+", 
         RowBox[{
          FractionBox["\[Kappa]", "\[Lambda]G"], "*", 
          RowBox[{"gL", "[", 
           RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            RowBox[{"INCDF", "[", 
             RowBox[{
             "\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
             "]"}]}], "]"}]}], "-", "zB", "-", 
         RowBox[{
          FractionBox["\[Kappa]", 
           RowBox[{"1", "-", "\[Lambda]G"}]], "*", 
          RowBox[{"gU", "[", 
           RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            RowBox[{"INCDF", "[", 
             RowBox[{
             "\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
             "]"}]}], "]"}]}]}], "==", "0"}], ")"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Lambda]G", ",", ".5"}], "}"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Code",
 CellChangeTimes->{{3.879014882914837*^9, 3.879014934412292*^9}, {
   3.879014972154162*^9, 3.879014987190856*^9}, {3.900844011119136*^9, 
   3.9008440328946667`*^9}, 3.900845419041961*^9, {3.900845475775097*^9, 
   3.900845485395486*^9}, {3.900845745071615*^9, 3.90084584547916*^9}, {
   3.900845982058117*^9, 3.900845994542427*^9}, {3.900851034828431*^9, 
   3.900851041982998*^9}, {3.90085116860237*^9, 3.900851175112071*^9}, {
   3.900851716293728*^9, 3.900851805959515*^9}, {3.9008519371455517`*^9, 
   3.90085199484764*^9}, {3.900852104095587*^9, 3.900852118813553*^9}, {
   3.900852306676668*^9, 3.900852320243991*^9}, {3.900862843119165*^9, 
   3.900862955357958*^9}, {3.900869634633913*^9, 3.900869662280551*^9}, {
   3.900870251667355*^9, 3.9008702914440193`*^9}, {3.9008706109429607`*^9, 
   3.900870626112773*^9}, {3.900870658265274*^9, 3.900870661531197*^9}, {
   3.900870786866374*^9, 3.900870788523392*^9}, {3.9008708377104807`*^9, 
   3.900870838951342*^9}, {3.900880490173665*^9, 3.9008804966475477`*^9}, {
   3.900880948039501*^9, 3.900880948775102*^9}, {3.9313654972687263`*^9, 
   3.931365497425346*^9}, {3.972652810018976*^9, 3.972652810492598*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"386c8e1c-8fef-4449-bfca-d6e19a5cac47"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 2", "Section",
 CellChangeTimes->{{3.9726007762208967`*^9, 
  3.972600779447806*^9}},ExpressionUUID->"5a2d085c-54f5-4087-ab66-\
74dc7c6a1af2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"betaexp", "[", 
    RowBox[{
    "T_", ",", "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",",
      "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", 
     "\[Lambda]G_"}], "]"}], "=", 
   RowBox[{"T", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["\[Kappa]", "\[Lambda]G"], " ", 
       RowBox[{"gL", "[", 
        RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], "]"}]}], "+",
       "zG", "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["\[Kappa]", 
          RowBox[{"1", "-", "\[Lambda]G"}]], " ", 
         RowBox[{"gU", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], "]"}]}],
         "+", "zB"}], ")"}]}], ")"}], 
    SuperscriptBox["\[Sigma]C", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"climdelta", "[", 
    RowBox[{
    "T_", ",", "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",",
      "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", 
     "\[Lambda]G_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["\[Kappa]", "\[Lambda]G"], " ", 
       RowBox[{"gL", "[", 
        RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], "]"}]}], "+",
       "zG", "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["\[Kappa]", 
          RowBox[{"1", "-", "\[Lambda]G"}]], " ", 
         RowBox[{"gU", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], "]"}]}],
         "+", "zB"}], ")"}]}], ")"}], 
    SuperscriptBox["\[Sigma]C", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mktexp", "[", 
    RowBox[{
    "T_", ",", "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",",
      "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", 
     "\[Lambda]G_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"-", "\[Kappa]"}], 
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       RowBox[{"NCDF", "[", 
        FractionBox[
         RowBox[{"T", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], "]"}], "-", 
       "\[Lambda]G"}], 
      RowBox[{"\[Lambda]G", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Lambda]G"}], ")"}]}]], ")"}], 
    SuperscriptBox["\[Sigma]M", "2"]}]}], ";"}]}], "Code",
 CellChangeTimes->{{3.879091304211983*^9, 3.8790913355671577`*^9}, {
  3.905166869204665*^9, 3.905166880028649*^9}, {3.905178094302761*^9, 
  3.905178131205626*^9}, {3.9051782332916718`*^9, 3.905178239024708*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"daf4b0d1-9267-421b-98df-2814dc4432ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", ".337245"}], ",", 
     RowBox[{"\[Sigma]\[Beta]", "=", ".5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "2"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "2"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", "1"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".25"}]}], "}"}], ",", "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"ept", "=", 
     RowBox[{"xp", "/.", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"climdelta", "[", 
           RowBox[{
            RowBox[{"INCDF", "[", 
             RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
             "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
            "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "==", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{"xp", ",", ".1", ",", "0.01", ",", ".99"}], "}"}]}], "]"}], 
       "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"eqpt", "=", 
     RowBox[{"xp", "/.", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"betaexp", "[", 
            RowBox[{
             RowBox[{"INCDF", "[", 
              RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
              "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
             "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
             "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "-", 
           RowBox[{"mktexp", "[", 
            RowBox[{
             RowBox[{"INCDF", "[", 
              RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
              "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
             "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
             "\[Kappa]", ",", "\[Lambda]G"}], "]"}]}], "==", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{"xp", ",", ".5", ",", "0.01", ",", ".99"}], "}"}]}], "]"}], 
       "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"betaexp", "[", 
         RowBox[{
          RowBox[{"INCDF", "[", 
           RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}],
           ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",",
           "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
          "\[Lambda]G"}], "]"}], ",", 
        RowBox[{"mktexp", "[", 
         RowBox[{
          RowBox[{"INCDF", "[", 
           RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}],
           ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",",
           "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
          "\[Lambda]G"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"xp", ",", ".1", ",", ".4"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{",", "Dashed", ",", "DotDashed"}], "}"}]}], ",", 
      RowBox[{"BaseStyle", "->", "16"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
           RowBox[{"InfiniteLine", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "4"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
           RowBox[{"InfiniteLine", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"\[Lambda]G", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Lambda]G", ",", "4"}], "}"}]}], "}"}], "]"}]}], 
          "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", "Black", "]"}], ",", 
           RowBox[{"AbsoluteDashing", "[", 
            RowBox[{"{", "}"}], "]"}], ",", 
           RowBox[{"InfiniteLine", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"eqpt", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"eqpt", ",", "4"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"Style", "[", 
             
             RowBox[{"\"\<Equilibrium T=\!\(\*SubscriptBox[\(\[Lambda]\), \(G\
\)]\)\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "13.5",
               ",", "Black"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.33", ",", ".65"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*SubscriptBox[\(\[Lambda]\), \(G\)]\)\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "12", ",",
               "Black"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.264", ",", "1.01"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Directive", "[", "Black", "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0.335", ",", ".475"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0.255", ",", ".23"}], "}"}]}], "}"}], "]"}]}], "}"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"PlotLabel", "->", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Beta]\), \(^\)], \
SubscriptBox[\(\[Lambda]\), \(G\)]]\)=0\>\"", ",", "18"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", "\"\<T\>\"", "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameTicks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", ".5"}], ",", "0", ",", ".5", ",", "1"}], "}"}], ",",
            "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", ".1", ",", ".2", ",", ".3", ",", ".4"}], "}"}], 
           ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.90526218309219*^9, 3.905262219764078*^9, {3.905263372675301*^9, 
   3.9052633748130703`*^9}, {3.9052634076490307`*^9, 3.905263415137641*^9}, {
   3.905263460255625*^9, 3.905263468978999*^9}, {3.905263500555352*^9, 
   3.905263557400111*^9}, {3.9052637532364483`*^9, 3.905263753709178*^9}, {
   3.905263961829726*^9, 3.9052639952684107`*^9}, {3.905264458006405*^9, 
   3.9052644697677593`*^9}, 3.905264632414771*^9, {3.9052734507361603`*^9, 
   3.905273468176213*^9}, 3.90528182548835*^9, 3.964542675728518*^9, 
   3.964543032022455*^9, {3.964608787325532*^9, 3.964608913086195*^9}, {
   3.964609838308062*^9, 3.9646098581023703`*^9}, {3.964609925923073*^9, 
   3.964609928445705*^9}, 3.972600897777032*^9, 3.972652815421632*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"d9dcc3fb-6e18-4f22-aa6b-1a4325329656"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "lstol", 
   "\"The line search decreased the step size to within tolerance specified \
by AccuracyGoal and PrecisionGoal, but was unable to find a sufficient \
decrease in the merit function. You may need more than \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"", 2, 24, 1, 30292245187474260244, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{{3.972600892641919*^9, 3.97260089811897*^9}, 
   3.972652815650688*^9, 3.972653145369977*^9},
 CellLabel->
  "During evaluation of \
In[24]:=",ExpressionUUID->"4168251f-01d7-41fc-8d7a-3703f07bb792"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwVyWs0lHkAx3GrUkd7rBIJEbpvcqntGOHXkqLIZV2LSh2pKGxlRS6t7ZQy
CIvJ5C6mCDVmjdt/MMw8bmGm4WEjis2lbHWQsmvbF9/zefHVPRXk4icvJyfn
8LX/pRxGn7JYfDhu5dwdOyEl4bm53rnZfHgcibQO9pSSHTM+yziFfDSU3ahY
cJKSJLbMvaqCj5v9dnXrraTEc1I0L6P4sH/gHxKzUUrGbj3Ems98rHRPMxeN
S8gSYVBbwtFq3PPqXOESKiEWZp9HYjVrMHVsaIlWeg/p3OWp8bquFh2C4YPb
pV1E+ekB7u399WgzeWz2qLiTbB4tTb7ZREDUrNYLZ9vIjtVl5pEVAnS3p7az
7Shy/7LjsNelBoT/EhFAFlsI22fN7RCbRrxS+DnwAl9IFHJU3bgqTeDoZ3J4
pY3EdtMJZw1pE050K3f3TwqIunGHc02BEIN5i7FbXetJQ3RsbLR/M543Nau/
tK8h0i2hvRc3tyAq/re73neqyBV3piFrpgWLsZ7DMmElmRZNVY3xRJj7Vdho
5P2UzJHgA0G3xFhIfqLZOVVOzq0yntVzpxDE2HD8zqlSwi1k9M6rtuIawz0C
YRzCFJypXTnWCoWal8VKoYXEUvvPnn3FbSCvXGSz47kkUj70bXl4O856tSaw
Y9hkyz777fZ2HehvT6owy/qdcATnMxQVO/Ex5JVhU28C4YtKFZcOdEJRsDZw
se06yVvFeLwh6xkGmLlWP6X6k4ijcmbcnV0wNtFXSvE5g8Cg2awraV0IibUu
Eby7DqowiW071wW7yjLt/HNMXNCx0GKc7EaxVGkb90MqRM3LDSDqxrZDS1cP
6GWCyQyVuW/pQf2VQ65B0Tm4lzH3TXxiDyyluSOJdflQadZq6fm7B8PZ2UKb
vgf4UfukpqGTBC8sTUTx8xzwqis/FP8hgUgGajCiFBlhZad2q0vREKxqciy4
HA1Xa1xfxEixxHT+oPzRJ3BnBwylj0ihkvLAN30PFzmTjC/+Vs8R5HF8b+Z6
HoyjNFhuD5+jU216LWVThZ0m2c9cV8qgnTv72dS3Gpe27bkVclkGayPngb7m
WlxwmOzOH5ChgvX9iwgLAknyfu5fe3txcXDjWbZEgBjNcnW7gl54yId9mjBp
BKuZqNYu64Oem3ep8p0m+LPf5u/364OchrKu05QQ13gG3In2Pux6dHqdTlQL
/n2/yifPgEaws1i2e7kYb4TjDBdDGqsb5d6aKonRk96gJm9MQ2+67aKlqhhF
FiFdvrtpdFcr8Rz0xXCK67LW3UsjNOyjVyTEyNuQuD3HloYwJWeHbpgYBxy/
/XT/NI3o+tjiaxNiGOm9ljr4ff1uh4oevxdDY6am4p8zNI7YW68b+STG9L2A
AJ/zNBbkBB4OyylkjLUOaoXQmPrAtPlhI4WJyLjmzCgaae+b1h0+TkHq5Jt3
OIaGmbX52VQ/CvX6jOgv12k4bqo0GAqkkEK9MT12g0b+Urb21QgK5qq2JRrx
NHqHRrPqMyhsfqMT18qkwQlQLFHJoaBcM+cXnkjDxlrN5HwRhdGTRTr9yTQ6
dHs5mjwKXbuiF+JSaaS3L2OH1lGoVvCgGWk0iOJ3KyRCCgX0Tt54Oo2ZR4bv
jNopJJQopLBYNFSjC44kSSj8B5f7fNs=
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0.365248, 0.427802, 0.758297], AbsoluteThickness[1.6], 
         Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwllHk41Hkcx2c77LNKJU1NQ+hA9TQhxU6yH20qtqyjRjWlHKF0DCs2NtfG
49gGuTLTODNLKsfTpIbRt8GYRWVufo5Chvnq3PZxZW3bPvvH+3k9rz9f/7zX
BrC8g+aRSCT3L/uP7e7a+xyOECyfGqZyOBhiSktPlBYLgZmLz+fmYdgy4bvw
Nl8IWSfEXpnXMWTxND6P6oQw8SbMODkNw9HX0hlNuxAkBrLqsGgMo6lVsOKT
EII9MtT7j2GY38rqzGA2QJVCf/0kBYPTzk/DV40bwYaY/9i7QAfP7Y5SR5pE
cHmA9S4kcQyW3d8nSHd5DK52lgPTV0bBUnsvO6UFQZbIvogfq4Uty2t2xdY9
AaqT+Fj1mREovOQxdCxCDLZL85Xbgl8Bz3dFevjeZkjuGdlv9OMw6JWQGQKj
FvBWszOWOg6Bq8UpL6qqBUrXJ+ak7BwEiu0zr8byVvhJ0W/x0PUFiOOvXo0P
kUAV6WCpz+5+UFlFdV+0bANZHktMc+mFSB+2NWeiDS6vTtGIjHvgvfTNo9F6
KdCc7c7soWhgCoXtY6X+AWEM5btErISzhraT63zaoUxuRZ1ulYOAT++eIXcA
f2htUmd6F7CfBIsWjXaAxVxf08odnfCdab/CubITHpxEHzw3SSF2XtTb2pin
EFmYbjDb1gxWzgc3H3R7BlWHYsc2fhTB7SehBfr6z4E04/A7fVwAQuk9/QV9
z6GqNin8cGgllBnSq82LuoC0LHZy2CMLfmGSdgq2yoBRcZ0hX5eJzrMmiyLz
v/hYSBzX6DZq52fxXKdkQLIM9A+4KUAXzJxM6H5yYBQ116xiNiGp5GsaSOVQ
4lS5Y2qqGbHZURofKwUMavdy/5puQ9yCqa+uZSpAv252RYJnJzKSmLQpPijA
3D41f83JLrTb1M/Y2lMJtZOMMf4dOapvePCx8qESOl5FLElWKlHB5ZqA7RQV
qGlzj85r1Egc3Xh4IEEFzLTsi7wFPciHd+7ljWEVdOzOqVAZ9KKS1/TZkO/V
wMh56ahe3I9s46gcRpUamJMOfWscXqCt24q7Di/SgEXfXJyD6SCK2GSfGn5J
AwMtWnKS/RC64P5afqtPA+bREb0Ct2GkzHYRjDl2Q29//eDZH16hBONailt5
NzDcEt40+40gjgSRRQt7wPn0Z3rJaS0K4b295RLUAw0HNjzwDxxFV+ppgvGn
PTDh2LVD+vMY+udPQ98yGgH8Xuvp2mgd0rViurc1AaEBLK5NnA4pbohXzrMl
wGa8elftrzpU4RQu899OQNMMLbHmNx3yTJPtWetIgJqyRb+6UIfKzDM3l7gS
sPDIRpM7Yh3a57F4ujCQgCCluTP/G4xs1o2o3IMI2Hzcb3jDEoyoE411c8EE
fBguTipfjtF77rlzvqEExHw0bb9ljFHBaMcLk3AC8gzXeJfRMBqPTZPcjCNA
4rH6dLEXRipP/7IDCQSkdx/VM/PB6PF6evxsIgGepwoqi5gY5bTrvj2eTMDA
xVVvCwMx2kV2vUu9RsAEmxzFi8TIUmeW1sEmoIHMoJjEYLSscSooJpOAhMLc
hptxGGn9Ksx6swkwuGf0mZuCkcwu/u+03C+92w+VUq9h1KB3hKDnE8AVZe/h
ZmFUTmytxzcI8HNRaFfnYZRxVy+HwyHA4v//Qv8C2WyK7A==
          "]]},
        Annotation[#, "Charting`Private`Tag#2"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]], 
             Line[CompressedData["
1:eJwVyWs0lHkAx3GrUkd7rBIJEbpvcqntGOHXkqLIZV2LSh2pKGxlRS6t7ZQy
CIvJ5C6mCDVmjdt/MMw8bmGm4WEjis2lbHWQsmvbF9/zefHVPRXk4icvJyfn
8LX/pRxGn7JYfDhu5dwdOyEl4bm53rnZfHgcibQO9pSSHTM+yziFfDSU3ahY
cJKSJLbMvaqCj5v9dnXrraTEc1I0L6P4sH/gHxKzUUrGbj3Ems98rHRPMxeN
S8gSYVBbwtFq3PPqXOESKiEWZp9HYjVrMHVsaIlWeg/p3OWp8bquFh2C4YPb
pV1E+ekB7u399WgzeWz2qLiTbB4tTb7ZREDUrNYLZ9vIjtVl5pEVAnS3p7az
7Shy/7LjsNelBoT/EhFAFlsI22fN7RCbRrxS+DnwAl9IFHJU3bgqTeDoZ3J4
pY3EdtMJZw1pE050K3f3TwqIunGHc02BEIN5i7FbXetJQ3RsbLR/M543Nau/
tK8h0i2hvRc3tyAq/re73neqyBV3piFrpgWLsZ7DMmElmRZNVY3xRJj7Vdho
5P2UzJHgA0G3xFhIfqLZOVVOzq0yntVzpxDE2HD8zqlSwi1k9M6rtuIawz0C
YRzCFJypXTnWCoWal8VKoYXEUvvPnn3FbSCvXGSz47kkUj70bXl4O856tSaw
Y9hkyz777fZ2HehvT6owy/qdcATnMxQVO/Ex5JVhU28C4YtKFZcOdEJRsDZw
se06yVvFeLwh6xkGmLlWP6X6k4ijcmbcnV0wNtFXSvE5g8Cg2awraV0IibUu
Eby7DqowiW071wW7yjLt/HNMXNCx0GKc7EaxVGkb90MqRM3LDSDqxrZDS1cP
6GWCyQyVuW/pQf2VQ65B0Tm4lzH3TXxiDyyluSOJdflQadZq6fm7B8PZ2UKb
vgf4UfukpqGTBC8sTUTx8xzwqis/FP8hgUgGajCiFBlhZad2q0vREKxqciy4
HA1Xa1xfxEixxHT+oPzRJ3BnBwylj0ihkvLAN30PFzmTjC/+Vs8R5HF8b+Z6
HoyjNFhuD5+jU216LWVThZ0m2c9cV8qgnTv72dS3Gpe27bkVclkGayPngb7m
WlxwmOzOH5ChgvX9iwgLAknyfu5fe3txcXDjWbZEgBjNcnW7gl54yId9mjBp
BKuZqNYu64Oem3ep8p0m+LPf5u/364OchrKu05QQ13gG3In2Pux6dHqdTlQL
/n2/yifPgEaws1i2e7kYb4TjDBdDGqsb5d6aKonRk96gJm9MQ2+67aKlqhhF
FiFdvrtpdFcr8Rz0xXCK67LW3UsjNOyjVyTEyNuQuD3HloYwJWeHbpgYBxy/
/XT/NI3o+tjiaxNiGOm9ljr4ff1uh4oevxdDY6am4p8zNI7YW68b+STG9L2A
AJ/zNBbkBB4OyylkjLUOaoXQmPrAtPlhI4WJyLjmzCgaae+b1h0+TkHq5Jt3
OIaGmbX52VQ/CvX6jOgv12k4bqo0GAqkkEK9MT12g0b+Urb21QgK5qq2JRrx
NHqHRrPqMyhsfqMT18qkwQlQLFHJoaBcM+cXnkjDxlrN5HwRhdGTRTr9yTQ6
dHs5mjwKXbuiF+JSaaS3L2OH1lGoVvCgGWk0iOJ3KyRCCgX0Tt54Oo2ZR4bv
jNopJJQopLBYNFSjC44kSSj8B5f7fNs=
              "]]}, "Charting`Private`Tag#1"], 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.365248, 0.427802, 0.758297], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              Dashing[{Small, Small}]], 
             Line[CompressedData["
1:eJwllHk41Hkcx2c77LNKJU1NQ+hA9TQhxU6yH20qtqyjRjWlHKF0DCs2NtfG
49gGuTLTODNLKsfTpIbRt8GYRWVufo5Chvnq3PZxZW3bPvvH+3k9rz9f/7zX
BrC8g+aRSCT3L/uP7e7a+xyOECyfGqZyOBhiSktPlBYLgZmLz+fmYdgy4bvw
Nl8IWSfEXpnXMWTxND6P6oQw8SbMODkNw9HX0hlNuxAkBrLqsGgMo6lVsOKT
EII9MtT7j2GY38rqzGA2QJVCf/0kBYPTzk/DV40bwYaY/9i7QAfP7Y5SR5pE
cHmA9S4kcQyW3d8nSHd5DK52lgPTV0bBUnsvO6UFQZbIvogfq4Uty2t2xdY9
AaqT+Fj1mREovOQxdCxCDLZL85Xbgl8Bz3dFevjeZkjuGdlv9OMw6JWQGQKj
FvBWszOWOg6Bq8UpL6qqBUrXJ+ak7BwEiu0zr8byVvhJ0W/x0PUFiOOvXo0P
kUAV6WCpz+5+UFlFdV+0bANZHktMc+mFSB+2NWeiDS6vTtGIjHvgvfTNo9F6
KdCc7c7soWhgCoXtY6X+AWEM5btErISzhraT63zaoUxuRZ1ulYOAT++eIXcA
f2htUmd6F7CfBIsWjXaAxVxf08odnfCdab/CubITHpxEHzw3SSF2XtTb2pin
EFmYbjDb1gxWzgc3H3R7BlWHYsc2fhTB7SehBfr6z4E04/A7fVwAQuk9/QV9
z6GqNin8cGgllBnSq82LuoC0LHZy2CMLfmGSdgq2yoBRcZ0hX5eJzrMmiyLz
v/hYSBzX6DZq52fxXKdkQLIM9A+4KUAXzJxM6H5yYBQ116xiNiGp5GsaSOVQ
4lS5Y2qqGbHZURofKwUMavdy/5puQ9yCqa+uZSpAv252RYJnJzKSmLQpPijA
3D41f83JLrTb1M/Y2lMJtZOMMf4dOapvePCx8qESOl5FLElWKlHB5ZqA7RQV
qGlzj85r1Egc3Xh4IEEFzLTsi7wFPciHd+7ljWEVdOzOqVAZ9KKS1/TZkO/V
wMh56ahe3I9s46gcRpUamJMOfWscXqCt24q7Di/SgEXfXJyD6SCK2GSfGn5J
AwMtWnKS/RC64P5afqtPA+bREb0Ct2GkzHYRjDl2Q29//eDZH16hBONailt5
NzDcEt40+40gjgSRRQt7wPn0Z3rJaS0K4b295RLUAw0HNjzwDxxFV+ppgvGn
PTDh2LVD+vMY+udPQ98yGgH8Xuvp2mgd0rViurc1AaEBLK5NnA4pbohXzrMl
wGa8elftrzpU4RQu899OQNMMLbHmNx3yTJPtWetIgJqyRb+6UIfKzDM3l7gS
sPDIRpM7Yh3a57F4ujCQgCCluTP/G4xs1o2o3IMI2Hzcb3jDEoyoE411c8EE
fBguTipfjtF77rlzvqEExHw0bb9ljFHBaMcLk3AC8gzXeJfRMBqPTZPcjCNA
4rH6dLEXRipP/7IDCQSkdx/VM/PB6PF6evxsIgGepwoqi5gY5bTrvj2eTMDA
xVVvCwMx2kV2vUu9RsAEmxzFi8TIUmeW1sEmoIHMoJjEYLSscSooJpOAhMLc
hptxGGn9Ksx6swkwuGf0mZuCkcwu/u+03C+92w+VUq9h1KB3hKDnE8AVZe/h
ZmFUTmytxzcI8HNRaFfnYZRxVy+HwyHA4v//Qv8C2WyK7A==
              "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.1, 0.4}, {-0.7999999673469388, 
            0.7999999673469389}}, "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {0.10000000000000023`, 0}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.365248, 0.427802, 0.758297], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              Dashing[{Small, Small}]], 
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.1, 0.4}, {-0.7999999673469388, 
           0.7999999673469389}}, "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0.10000000000000023`, 0}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.365248, 0.427802, 0.758297], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{Small, Small}]], 
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         Line[CompressedData["
1:eJwVyWs0lHkAx3GrUkd7rBIJEbpvcqntGOHXkqLIZV2LSh2pKGxlRS6t7ZQy
CIvJ5C6mCDVmjdt/MMw8bmGm4WEjis2lbHWQsmvbF9/zefHVPRXk4icvJyfn
8LX/pRxGn7JYfDhu5dwdOyEl4bm53rnZfHgcibQO9pSSHTM+yziFfDSU3ahY
cJKSJLbMvaqCj5v9dnXrraTEc1I0L6P4sH/gHxKzUUrGbj3Ems98rHRPMxeN
S8gSYVBbwtFq3PPqXOESKiEWZp9HYjVrMHVsaIlWeg/p3OWp8bquFh2C4YPb
pV1E+ekB7u399WgzeWz2qLiTbB4tTb7ZREDUrNYLZ9vIjtVl5pEVAnS3p7az
7Shy/7LjsNelBoT/EhFAFlsI22fN7RCbRrxS+DnwAl9IFHJU3bgqTeDoZ3J4
pY3EdtMJZw1pE050K3f3TwqIunGHc02BEIN5i7FbXetJQ3RsbLR/M543Nau/
tK8h0i2hvRc3tyAq/re73neqyBV3piFrpgWLsZ7DMmElmRZNVY3xRJj7Vdho
5P2UzJHgA0G3xFhIfqLZOVVOzq0yntVzpxDE2HD8zqlSwi1k9M6rtuIawz0C
YRzCFJypXTnWCoWal8VKoYXEUvvPnn3FbSCvXGSz47kkUj70bXl4O856tSaw
Y9hkyz777fZ2HehvT6owy/qdcATnMxQVO/Ex5JVhU28C4YtKFZcOdEJRsDZw
se06yVvFeLwh6xkGmLlWP6X6k4ijcmbcnV0wNtFXSvE5g8Cg2awraV0IibUu
Eby7DqowiW071wW7yjLt/HNMXNCx0GKc7EaxVGkb90MqRM3LDSDqxrZDS1cP
6GWCyQyVuW/pQf2VQ65B0Tm4lzH3TXxiDyyluSOJdflQadZq6fm7B8PZ2UKb
vgf4UfukpqGTBC8sTUTx8xzwqis/FP8hgUgGajCiFBlhZad2q0vREKxqciy4
HA1Xa1xfxEixxHT+oPzRJ3BnBwylj0ihkvLAN30PFzmTjC/+Vs8R5HF8b+Z6
HoyjNFhuD5+jU216LWVThZ0m2c9cV8qgnTv72dS3Gpe27bkVclkGayPngb7m
WlxwmOzOH5ChgvX9iwgLAknyfu5fe3txcXDjWbZEgBjNcnW7gl54yId9mjBp
BKuZqNYu64Oem3ep8p0m+LPf5u/364OchrKu05QQ13gG3In2Pux6dHqdTlQL
/n2/yifPgEaws1i2e7kYb4TjDBdDGqsb5d6aKonRk96gJm9MQ2+67aKlqhhF
FiFdvrtpdFcr8Rz0xXCK67LW3UsjNOyjVyTEyNuQuD3HloYwJWeHbpgYBxy/
/XT/NI3o+tjiaxNiGOm9ljr4ff1uh4oevxdDY6am4p8zNI7YW68b+STG9L2A
AJ/zNBbkBB4OyylkjLUOaoXQmPrAtPlhI4WJyLjmzCgaae+b1h0+TkHq5Jt3
OIaGmbX52VQ/CvX6jOgv12k4bqo0GAqkkEK9MT12g0b+Urb21QgK5qq2JRrx
NHqHRrPqMyhsfqMT18qkwQlQLFHJoaBcM+cXnkjDxlrN5HwRhdGTRTr9yTQ6
dHs5mjwKXbuiF+JSaaS3L2OH1lGoVvCgGWk0iOJ3KyRCCgX0Tt54Oo2ZR4bv
jNopJJQopLBYNFSjC44kSSj8B5f7fNs=
          "]]}, "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         Line[CompressedData["
1:eJwllHk41Hkcx2c77LNKJU1NQ+hA9TQhxU6yH20qtqyjRjWlHKF0DCs2NtfG
49gGuTLTODNLKsfTpIbRt8GYRWVufo5Chvnq3PZxZW3bPvvH+3k9rz9f/7zX
BrC8g+aRSCT3L/uP7e7a+xyOECyfGqZyOBhiSktPlBYLgZmLz+fmYdgy4bvw
Nl8IWSfEXpnXMWTxND6P6oQw8SbMODkNw9HX0hlNuxAkBrLqsGgMo6lVsOKT
EII9MtT7j2GY38rqzGA2QJVCf/0kBYPTzk/DV40bwYaY/9i7QAfP7Y5SR5pE
cHmA9S4kcQyW3d8nSHd5DK52lgPTV0bBUnsvO6UFQZbIvogfq4Uty2t2xdY9
AaqT+Fj1mREovOQxdCxCDLZL85Xbgl8Bz3dFevjeZkjuGdlv9OMw6JWQGQKj
FvBWszOWOg6Bq8UpL6qqBUrXJ+ak7BwEiu0zr8byVvhJ0W/x0PUFiOOvXo0P
kUAV6WCpz+5+UFlFdV+0bANZHktMc+mFSB+2NWeiDS6vTtGIjHvgvfTNo9F6
KdCc7c7soWhgCoXtY6X+AWEM5btErISzhraT63zaoUxuRZ1ulYOAT++eIXcA
f2htUmd6F7CfBIsWjXaAxVxf08odnfCdab/CubITHpxEHzw3SSF2XtTb2pin
EFmYbjDb1gxWzgc3H3R7BlWHYsc2fhTB7SehBfr6z4E04/A7fVwAQuk9/QV9
z6GqNin8cGgllBnSq82LuoC0LHZy2CMLfmGSdgq2yoBRcZ0hX5eJzrMmiyLz
v/hYSBzX6DZq52fxXKdkQLIM9A+4KUAXzJxM6H5yYBQ116xiNiGp5GsaSOVQ
4lS5Y2qqGbHZURofKwUMavdy/5puQ9yCqa+uZSpAv252RYJnJzKSmLQpPijA
3D41f83JLrTb1M/Y2lMJtZOMMf4dOapvePCx8qESOl5FLElWKlHB5ZqA7RQV
qGlzj85r1Egc3Xh4IEEFzLTsi7wFPciHd+7ljWEVdOzOqVAZ9KKS1/TZkO/V
wMh56ahe3I9s46gcRpUamJMOfWscXqCt24q7Di/SgEXfXJyD6SCK2GSfGn5J
AwMtWnKS/RC64P5afqtPA+bREb0Ct2GkzHYRjDl2Q29//eDZH16hBONailt5
NzDcEt40+40gjgSRRQt7wPn0Z3rJaS0K4b295RLUAw0HNjzwDxxFV+ppgvGn
PTDh2LVD+vMY+udPQ98yGgH8Xuvp2mgd0rViurc1AaEBLK5NnA4pbohXzrMl
wGa8elftrzpU4RQu899OQNMMLbHmNx3yTJPtWetIgJqyRb+6UIfKzDM3l7gS
sPDIRpM7Yh3a57F4ujCQgCCluTP/G4xs1o2o3IMI2Hzcb3jDEoyoE411c8EE
fBguTipfjtF77rlzvqEExHw0bb9ljFHBaMcLk3AC8gzXeJfRMBqPTZPcjCNA
4rH6dLEXRipP/7IDCQSkdx/VM/PB6PF6evxsIgGepwoqi5gY5bTrvj2eTMDA
xVVvCwMx2kV2vUu9RsAEmxzFi8TIUmeW1sEmoIHMoJjEYLSscSooJpOAhMLc
hptxGGn9Ksx6swkwuGf0mZuCkcwu/u+03C+92w+VUq9h1KB3hKDnE8AVZe/h
ZmFUTmytxzcI8HNRaFfnYZRxVy+HwyHA4v//Qv8C2WyK7A==
          "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.1, 0.4}, {-0.7999999673469388, 0.7999999673469389}},
        "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {0.10000000000000023`, 0}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000023`, 0},
  BaseStyle->16,
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{{
     Directive[
      GrayLevel[0.5]], 
     Dashing[{0, Small, Small, Small}], 
     TagBox[
      ConicHullRegionBox[{{1, 2}, {1, 4}}], "InfiniteLine"]}, {
     Directive[
      GrayLevel[0.5]], 
     Dashing[{0, Small, Small, Small}], 
     TagBox[
      ConicHullRegionBox[{{0.25, 2}, {0.25, 4}}], "InfiniteLine"]}, {
     Directive[
      GrayLevel[0]], 
     AbsoluteDashing[{}], 
     TagBox[
      ConicHullRegionBox[{{0.24999998788666525`, 2}, {
        0.24999998788666525`, 4}}], "InfiniteLine"]}, 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Equilibrium T=\\!\\(\\*SubscriptBox[\\(\[Lambda]\\), \
\\(G\\)]\\)\"", FontFamily -> "Times", 13.5, 
            GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style[
         "Equilibrium T=\!\(\*SubscriptBox[\(\[Lambda]\), \(G\)]\)", 
          FontFamily -> "Times", 13.5, 
          GrayLevel[0]]]], TraditionalForm]], {0.33, 0.65}], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"\\!\\(\\*SubscriptBox[\\(\[Lambda]\\), \\(G\\)]\\)\"", 
            FontFamily -> "Times", 12, 
            GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style[
         "\!\(\*SubscriptBox[\(\[Lambda]\), \(G\)]\)", FontFamily -> "Times", 
          12, 
          GrayLevel[0]]]], TraditionalForm]], {0.264, 1.01}], 
    Directive[
     GrayLevel[0]], 
    ArrowBox[{{0.335, 0.475}, {0.255, 0.23}}]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {
     FormBox[
      TagBox["\"T\"", HoldForm], TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{{{-0.5, 
       FormBox[
        RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}, {}}, {{{0, 
       FormBox["0", TraditionalForm]}, {0.1, 
       FormBox["0.1`", TraditionalForm]}, {0.2, 
       FormBox["0.2`", TraditionalForm]}, {0.3, 
       FormBox["0.3`", TraditionalForm]}, {0.4, 
       FormBox["0.4`", TraditionalForm]}}, {}}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->250,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotLabel->FormBox[
    StyleBox[
    "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Beta]\\), \\(^\\)], \
SubscriptBox[\\(\[Lambda]\\), \\(G\\)]]\\)=0\"", 18, StripOnInput -> False], 
    TraditionalForm],
  PlotRange->{{0.1, 0.4}, {-0.7999999673469388, 0.7999999673469389}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.972600892723723*^9, 3.972600898148534*^9}, 
   3.972652815682127*^9, 3.9726531454703083`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"82530d07-05eb-420a-8069-05c61dbea7a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1"}], ",", 
     RowBox[{"\[Sigma]\[Beta]", "=", ".5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "2"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "2"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", "1"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".25"}]}], "}"}], ",", "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"ept", "=", 
     RowBox[{"xp", "/.", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"climdelta", "[", 
           RowBox[{
            RowBox[{"INCDF", "[", 
             RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
             "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
            "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "==", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{"xp", ",", ".1"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"eqpt", "=", 
     RowBox[{"xp", "/.", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"betaexp", "[", 
            RowBox[{
             RowBox[{"INCDF", "[", 
              RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
              "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
             "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
             "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "-", 
           RowBox[{"mktexp", "[", 
            RowBox[{
             RowBox[{"INCDF", "[", 
              RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
              "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
             "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
             "\[Kappa]", ",", "\[Lambda]G"}], "]"}]}], "==", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{"xp", ",", ".1"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"betaexp", "[", 
         RowBox[{
          RowBox[{"INCDF", "[", 
           RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}],
           ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",",
           "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
          "\[Lambda]G"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"mktexp", "[", 
         RowBox[{
          RowBox[{"INCDF", "[", 
           RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}],
           ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",",
           "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
          "\[Lambda]G"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"xp", ",", ".1", ",", ".4"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"BaseStyle", "->", "16"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{",", "Dashed", ",", "DotDashed"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
         RowBox[{"InfiniteLine", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Directive", "[", "Black", "]"}], ",", "DotDashed", ",", 
         RowBox[{"InfiniteLine", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\[Lambda]G", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"\[Lambda]G", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Directive", "[", "Black", "]"}], ",", 
         RowBox[{"AbsoluteDashing", "[", 
          RowBox[{"{", "}"}], "]"}], ",", 
         RowBox[{"InfiniteLine", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"eqpt", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"eqpt", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"Style", "[", 
             
             RowBox[{"\"\<Equilibrium T;\\n lies below \!\(\*SubscriptBox[\(\
\[Lambda]\), \(G\)]\)\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "13.5",
               ",", "Black"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.16", ",", "2"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*SubscriptBox[\(\[Lambda]\), \(G\)]\)\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "16", ",",
               "Black"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.27", ",", "2"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Directive", "[", "Black", "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0.15", ",", "1.4"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0.22", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"PlotLabel", "->", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Beta]\), \(^\)], \
SubscriptBox[\(\[Lambda]\), \(G\)]]\)>0\>\"", ",", "18"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", "\"\<T\>\"", "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameTicks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", ".1", ",", ".2", ",", ".3", ",", ".4"}], "}"}], 
           ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.905260384807699*^9, 3.9052604409213552`*^9}, {
   3.905260471467495*^9, 3.905260602019668*^9}, {3.905260649450414*^9, 
   3.905260726614117*^9}, {3.905263562324164*^9, 3.905263567409807*^9}, {
   3.905263740897141*^9, 3.905263756983169*^9}, {3.905263808705427*^9, 
   3.905263817685231*^9}, {3.9052638796529217`*^9, 3.905263951941489*^9}, {
   3.9052640091912727`*^9, 3.905264017436342*^9}, {3.905264126076709*^9, 
   3.9052641306400433`*^9}, {3.905264419720688*^9, 3.9052644537269506`*^9}, {
   3.905264628115525*^9, 3.905264628436929*^9}, {3.905273477815441*^9, 
   3.9052734882711067`*^9}, 3.905281821065851*^9, 3.964543044415963*^9, 
   3.964543077477709*^9, {3.9646086046001472`*^9, 3.96460875839963*^9}, {
   3.964609352042919*^9, 3.964609353005086*^9}, {3.964609414421131*^9, 
   3.964609414985169*^9}, {3.964609478903359*^9, 3.964609493371168*^9}, {
   3.964609525954887*^9, 3.964609535774308*^9}, {3.964609578629665*^9, 
   3.964609586520793*^9}, {3.964609703587323*^9, 3.964609770111415*^9}, 
   3.972652818216824*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"7fec8897-79cf-450d-b89f-66feb960221a"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwV1Hk0Ve0XB3DiKtRbMiREUvIKRX6V0D6laBJplJKSJFOEN8pQlJSrkgxR
IQqvkAzdc+71uEmmynC591xUpmQumULxe94/znrWZ5111nPW3vu71U972jjN
ERER4eLnv7PK8uurhAQWdNfKNuul0yggJeV4yhMWPOhXiEjB1hk7wchMZ8Gl
YQ8lmWc0upvEP/z6JQvcPw187cbe9iN6FhWzoCNxcrnlcxqNmlllVHBYgMa0
iDzso/0Vk/wqFnhIkDruGTSSgrDUz7UsyNorMv0Omx1N7OluYkG0pUHuskwa
qW1mJY21s0AqVK2Gi13H9N3x5xsLvjI46xdm0ehau/6Q+BALjrRJhdlid9/M
ArkpFuzR8v/UhR3ferZHWYSEyCz/b6v+pdHudRr3NCRISM3pa3bEfiFI7DBY
TILryZZgPrb9mqO3NyuSoPd9k4F0No0WBcsZblMlYebdm1oTbB9N5vX92iSM
Kcp9jMXWDNilZ7uOBN89xWsRNv2BIXDYQMLNjVuCurBvqb8JPmdCwvACBVLi
BY1MfIO0LmwjYTf1b+cq7KHKzfX/7CTBusd1eit2ssqEf/A+EsSm3ojaYdtc
eLUi/CAJZTLLJi5gi731rIk6RkLfgu6WUOyCJTo+sQ4kBEZE5N3HPuvao/L4
LAntrd6+ydiKKK083Y2Et8sWrMnCrl58yuOFNwmX1crq87CvnF22pPASCZoX
Z10KsPVIIWIHkdDrrDP6n9sWxJ57G0bCRumCC/nY0adsZN7fwvXQEmnLxt5e
+BfJu0tC+Z6AbWnY4/NqTrfEkvCLfTs+HjvjeLh0ZxIJW64/6ojAts0zK+hL
JeGCm6L6JWwpcZETPzNIGJ08c9ARm32EzZjKIWHcp//KHmyPfy/liBaS4N8l
m7gOe/ms4RFJioTahea5i7EbbIZnF3FJYAb1soZxvcOevchQrMDvLzlRH7A3
TLnsX/6BhFtz1QueYX+z1JxazSMhZvRa2hXs+JSO1LVCEmRrhiOtsHePPd6z
8QsJ5wU8dzXsnKQlj8z78f/ejlAqwvPh8IO3Y98wnp8YrW9XsBdvvzt0aIIE
k7j6FwS2X/88wkmMgo1pTdoIz58WlPe4SVKgpjHV7o/dHH31ns9CCvhhVIw+
tunmqY5QZQq6NqcPxeH5XpkvcFywgoKJ1oZEwJbSLuyK1aJg1XJ51InzwV96
oTvzfxQci69zUf8vL/csndebUOB4Y8dPEufrqeSaHvY2Cr6Ev/tpjX1h8mtv
rRW+/2XbCW+cz8NeZedtD1NgIHax6g/Os0lvcn/HcQo6OWK517ElhXaDYy4U
VFks7LuVRqPU1/U/lMMosFXboeuaSqOb63K90m9RwLU382tOwf3JiPypd4+C
7ifypubYxvEWo1sfU5Ajp2wum0yjxn84E86vKdAwaLEJfUQjiY2ZM68GKAjZ
WYKoOBoN5NwINh2h4KDhOtWRWNxPzTMiFZMU5A51i67GfqKgNqdZgg27s0aP
hcXQaNN4DENEnQ3O87c4yN+j0fnCkPl7D7HB88uM8r0IGlnr2jOb7NiwPpAj
fu8m7n+68V8nT7MhZMs3f2Y4zs+D8YXenmy4PWwsfeU6jZJ83GTjI9ggor2U
v/YqjT6uP6rUxWGDadxG95//0KhmEBXMlLGB15skWedHo8rnq62WVrPB0P5J
ZpYvjd4oT4Tu4+PvDzSPHb5IoyKx2MHXQ2zo/fqq8rYHjR7zeKVMNQ7If8x+
evYMjRKZxnYZqzjQnHw/Vc4Rz5/F07E3azigGHg5C53C+aK8tX9t5IBrVDJ/
/kka3XgqE3PamgM5Wr6ZobY08rxo5bzxKgf86APXOi1p5KZbLGoTzgFzxu1N
p/fienxTTXJjckA/fPz3p900OmM3VJeSwAHN73kv31vg/WvG3Dw/nwM7fj/g
3dhKI0K2ZkF7Bwdmo5PBwxDvu1fmBbe2l8BUZEintCLeZ1alz2/sLgHdNcrO
GxRolDJglHjNugQyIrPV7OVoZKCpey3geAm8smtYl76IRgcSZK3P+5TA4ulf
zTKSNIoNbuvflVYC5vZZkU6TAqS8N0BDUhzBJ7+Hlr8EAtTVM6LAkEJw4tCK
X1VNApR93V1KdBGC6ap9bfE8ATJBDsO/lBH4MFPO69UKkL2BBepZj2Duscse
m94JULKinF2lI4JnC0fcKl8JkObXF9HhZQgakeuC5kgB0ni2055RjeCMlsi8
ZbcEaLlz59+hdQhOGvx5fzxcgJR6FblBnxB8c/EqbrgqQAsGQ7/7TiDYtWlK
Id5PgAKmdDTz5UvhesbrHREnBchhjlho8q5S0Eabrs1dK0A6i3NNAl+WQqrb
5GDoWz4qur81N6ygFPrc5PZu4vIRId+oHllcCsTA56FeDh8dUJyUSOSUwtTP
M2I7ivkoQNWs/nVVKVQ+dPBozuSjSm2B02h7KVQdlQu8FsVHZ8xmo1wXc+Gy
V9xs5SE+euRj1W57kQt1D4usjVubEHHzJ6T6caG0wsNiUNCEuhIfPO7z58IG
OkQxideEdMpa7C6HcEGXztv9o7oJsWXO8ZOYXJh7UGfcm9WEWnNCar4858I5
/2vJ7Q+akErvy0KnVi6UL3UacdrbhJJOyN3y2vEGxr8uy1mS14gkkuUPFciW
wYjtVgsbWx7auerkfqXGMhB29M+z/l6PFPU/7KfS3sKlAeWn1kZ1iBscGhrs
XA7Wyx+M3hl4jxpX+wk8NN+BWtBU80rtKuR7mLk2Yewd/NFwX2KL3qLvFQOv
u4sqoIfJhkKrUjSBLph73qwE+YwDrEMHipCLjP74isNVcFTq3ZChzHNUkG4k
mJSvhrjeRYHznrgiZulZtnR3NWx/Ct4z1DPYotraQGTUgL+C32SYUzEEzvEb
zAt4Dyf/fJ71i3wDq4m92nt3fQA91QKBXlIVZJaej5eS+gjDjY8i70EdsCpe
SIm3fASe4oP3XSsbIVXGKGf541qoYeXvl/kugMvHRDYX6NWBUqXjo/zqFnDz
HH/sG1sHKkliHQEybVCVfjdp50QdHLGJ10pa0wHuaqYqRg71QP5xny4K74KK
8rm6UFEP83iPBnoHu4HJ9OMfXt0A/o4KdZmmvfAwfkI08k4DcDxWRM3w+kG2
XOVdw48GsDhyejJt/xBsVXVQXmvNAynblcp+539AEVn4M6OYBybSer+z64ch
/lLuaUPFRqiqtV7orj0CXH/q4KeQRvhQX/ElPWsUDie5fonraIS2gJHqfcrj
kNxvNO28rQlWpkUYSUZNgH6QUsKhrCYIOVA+81B7EvQMntQelObDxTjSJbhw
Ci7+veGmlw8fyj6vOGTg9hvcLfvrn7bwYWDU8bNg1QzworcXfDMWwI1IY+/0
mlkIUc5T3JUmgCWG/PyOWhEioRzJsxk0XI6dq3QlV5RwThp8ut2JBm9V8Sj/
O3OIK0W6BX3vaTBZ/KmkPVyMmBmWOZGqK4RFMVuny3zEiZ63vUY2a4VAZW/o
/3FJnGiI4yrM0RdCckmRqWqgOPHc1KvulKEQ5judlgq4Lk5YR9SZqRsLoWT6
5bYNseJE6vI72sk7hdAneUOfWyxOmFvN//XIUQi5UZSS+rQ4sW5FV6OlkxDQ
QuNTx2bFCaUx6uWfs0I4bpEoFSPGIL4/dHU9cV4IbYXzbsybzyDiu6s/q3gJ
YXtup9q4CoPoC4woTwwSwtGG3+2dWxhEo/Wp1D0hQgh/8PGIhhmDKNEwCp6+
KgR1dvY6RwsGcb+qZ5PddSE80U+Q7rJiECbyO7OVIoUQ9TH4bJ8Dg9DsUYuo
ZgphkiU6puPEIBZRE04Bd4QwV/ZZt6cLg/jq8FytOVoIZstOjYx7MYi69cG/
I2KEEHYk8C9jPwZBShwRGsUKwUWmIjI4gEGkCfWKeuOE0Lpoq8fbIAYRlS1x
PyFBCKYqQ/mSoQzi/xe7YnE=
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0.365248, 0.427802, 0.758297], AbsoluteThickness[1.6], 
         Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwllHk41Hkcx2c77LM6palpCFGUp0lS7CT70SaxZR01UynlCKVjeMTGNoyN
x7ENcmWmcWaWVI6nSYbR17gmVObm5ygmw/x0bvu4sra1z/7xet7P68/3P69N
gQyf4EUEAsFjgf+200P7iMMRguVzgxQOB4fYkpLTJUVC8M3BL+Xk4rB90m/p
Pb4QMk+LvTNu4ZDJU9Pra4Uw+S7cKCkVhxNvJbPqTiG0r5BWhcfgMJZSCWu/
CCHEM1116CQOi9sY3em+DVAp17eYIuHgtPeL5oZRI+zEFj/1ydfBS7sT5NEm
EVwbYnwITRiH1Y9cBWkuT8HNznJo5voYWGofZiW3IsgU2RfymVrYvqZ6H7O2
GchO4pNV50eh4KrnyMlIMdiuylPsCnkDPL+1aREHWyCpb/SQ4c8a0Csm0gSG
reCjYqevchwBty1nvcnKViixSMhO3jsMJNsX3o1lbRAlH9zyxO0ViONv3IgP
bYdKwpES+v5BUFpF916x7ABpLkNMcemHKDrbhjPZAdc2JKtFRn3wUfKufqxO
AhRnu/MHSGqYRuGujJRnEE5TfEjAFXDBwHbKnN4JpTIr8kybDAR8au8ssQty
RzYldqf1ALs5RLRsrAuI8wNN6/Z0ww8mg3Lnim7oOoM+eW2TAHNR9Pua2OcQ
VpC2Yq6jBaycj1gfcX8BlUeZ41s/i+Bec1i+vv5LIMw6/EGdEIBQ8lB/ycBL
yK1JjDgWVgGlBtQqs8IeIKxmTmk8M+FXX8JewQ4p0Mpv0WTmGegSY6owKm/B
x0PjuIb3UCc/k+c2LQWCZVBA4B0BumzqZEz1lwGrsKV6vW8TkrR/SwGJDCqd
KvZMT7cgNjtaTbeSg0p7kPvXTAfi5k9/czNDDoTaubUsr25k2G7cIf8kB2v7
lLyNZ3rQfhN/IxsvBdRM0cb592WoruHx54onCmh+E7kySaFA+deqA3eTlDBM
ma+/pFYhcUzjsSGWEnxTs67wlvQhOu/i69saJUj3Z5crV/Sj4rfUudAfVUDL
fu2oWj6IbOPIHFrlgk85DGx0eIV27CrqObZMDVsG5uMcTIZR5Db7lIirahhu
1RIT7UfQZY+3srsDajCLiewXuGuQIstFMO7YC/2DdcMXfnqDWEY1JPeyXqC5
s961+I8iTjsiipb2gfO5r9Tic1oUynt/1yW4D5oOb34cEDSGrtdRBBPP+2DS
sWeP5Jdx9M+fBn6lFAz4/TYzNTE6pGvDqT42GIQFMrg743RIflu8bpEtBrsm
qvbV/KZD5U4R0oDdGDTMUhKqf9chr1TpgU2OGKhI2/WrCnSo1CzDutgNg6XH
txrfF+uQq+fymYIgDIIVZs7873C003xU6RGMgfUpf83mlTgiTzbWzodg8ElT
lFi2BkcfuRcv+oVhwPxs0nnXCEf5Y12vjCMwyDXY6FNKwdEEM7X9ThwGzzw3
nCvyxpHSK6D0MAuDtN4TeqZ0HD21oMbPJWDgdTa/otAXR9mduu9PJWEwdGX9
+4IgHO0juj0g38Rgkk2M5kXhyFJnmtrFxqCeSCMZx+JodeN0cGwGBqyCnIY7
cTjS+peb9mdhoP/Q8Cs3GUdSu/i/U3MW/u4+WkK+iaMGveMYNQ8DrijrADcT
R2XYjjr8Ngb+LnLthlwcpT/Qy+ZwMDD/v1/oX91EivM=
          "]]},
        Annotation[#, "Charting`Private`Tag#2"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]], 
             Line[CompressedData["
1:eJwV1Hk0Ve0XB3DiKtRbMiREUvIKRX6V0D6laBJplJKSJFOEN8pQlJSrkgxR
IQqvkAzdc+71uEmmynC591xUpmQumULxe94/znrWZ5111nPW3vu71U972jjN
ERER4eLnv7PK8uurhAQWdNfKNuul0yggJeV4yhMWPOhXiEjB1hk7wchMZ8Gl
YQ8lmWc0upvEP/z6JQvcPw187cbe9iN6FhWzoCNxcrnlcxqNmlllVHBYgMa0
iDzso/0Vk/wqFnhIkDruGTSSgrDUz7UsyNorMv0Omx1N7OluYkG0pUHuskwa
qW1mJY21s0AqVK2Gi13H9N3x5xsLvjI46xdm0ehau/6Q+BALjrRJhdlid9/M
ArkpFuzR8v/UhR3ferZHWYSEyCz/b6v+pdHudRr3NCRISM3pa3bEfiFI7DBY
TILryZZgPrb9mqO3NyuSoPd9k4F0No0WBcsZblMlYebdm1oTbB9N5vX92iSM
Kcp9jMXWDNilZ7uOBN89xWsRNv2BIXDYQMLNjVuCurBvqb8JPmdCwvACBVLi
BY1MfIO0LmwjYTf1b+cq7KHKzfX/7CTBusd1eit2ssqEf/A+EsSm3ojaYdtc
eLUi/CAJZTLLJi5gi731rIk6RkLfgu6WUOyCJTo+sQ4kBEZE5N3HPuvao/L4
LAntrd6+ydiKKK083Y2Et8sWrMnCrl58yuOFNwmX1crq87CvnF22pPASCZoX
Z10KsPVIIWIHkdDrrDP6n9sWxJ57G0bCRumCC/nY0adsZN7fwvXQEmnLxt5e
+BfJu0tC+Z6AbWnY4/NqTrfEkvCLfTs+HjvjeLh0ZxIJW64/6ojAts0zK+hL
JeGCm6L6JWwpcZETPzNIGJ08c9ARm32EzZjKIWHcp//KHmyPfy/liBaS4N8l
m7gOe/ms4RFJioTahea5i7EbbIZnF3FJYAb1soZxvcOevchQrMDvLzlRH7A3
TLnsX/6BhFtz1QueYX+z1JxazSMhZvRa2hXs+JSO1LVCEmRrhiOtsHePPd6z
8QsJ5wU8dzXsnKQlj8z78f/ejlAqwvPh8IO3Y98wnp8YrW9XsBdvvzt0aIIE
k7j6FwS2X/88wkmMgo1pTdoIz58WlPe4SVKgpjHV7o/dHH31ns9CCvhhVIw+
tunmqY5QZQq6NqcPxeH5XpkvcFywgoKJ1oZEwJbSLuyK1aJg1XJ51InzwV96
oTvzfxQci69zUf8vL/csndebUOB4Y8dPEufrqeSaHvY2Cr6Ev/tpjX1h8mtv
rRW+/2XbCW+cz8NeZedtD1NgIHax6g/Os0lvcn/HcQo6OWK517ElhXaDYy4U
VFks7LuVRqPU1/U/lMMosFXboeuaSqOb63K90m9RwLU382tOwf3JiPypd4+C
7ifypubYxvEWo1sfU5Ajp2wum0yjxn84E86vKdAwaLEJfUQjiY2ZM68GKAjZ
WYKoOBoN5NwINh2h4KDhOtWRWNxPzTMiFZMU5A51i67GfqKgNqdZgg27s0aP
hcXQaNN4DENEnQ3O87c4yN+j0fnCkPl7D7HB88uM8r0IGlnr2jOb7NiwPpAj
fu8m7n+68V8nT7MhZMs3f2Y4zs+D8YXenmy4PWwsfeU6jZJ83GTjI9ggor2U
v/YqjT6uP6rUxWGDadxG95//0KhmEBXMlLGB15skWedHo8rnq62WVrPB0P5J
ZpYvjd4oT4Tu4+PvDzSPHb5IoyKx2MHXQ2zo/fqq8rYHjR7zeKVMNQ7If8x+
evYMjRKZxnYZqzjQnHw/Vc4Rz5/F07E3azigGHg5C53C+aK8tX9t5IBrVDJ/
/kka3XgqE3PamgM5Wr6ZobY08rxo5bzxKgf86APXOi1p5KZbLGoTzgFzxu1N
p/fienxTTXJjckA/fPz3p900OmM3VJeSwAHN73kv31vg/WvG3Dw/nwM7fj/g
3dhKI0K2ZkF7Bwdmo5PBwxDvu1fmBbe2l8BUZEintCLeZ1alz2/sLgHdNcrO
GxRolDJglHjNugQyIrPV7OVoZKCpey3geAm8smtYl76IRgcSZK3P+5TA4ulf
zTKSNIoNbuvflVYC5vZZkU6TAqS8N0BDUhzBJ7+Hlr8EAtTVM6LAkEJw4tCK
X1VNApR93V1KdBGC6ap9bfE8ATJBDsO/lBH4MFPO69UKkL2BBepZj2Duscse
m94JULKinF2lI4JnC0fcKl8JkObXF9HhZQgakeuC5kgB0ni2055RjeCMlsi8
ZbcEaLlz59+hdQhOGvx5fzxcgJR6FblBnxB8c/EqbrgqQAsGQ7/7TiDYtWlK
Id5PgAKmdDTz5UvhesbrHREnBchhjlho8q5S0Eabrs1dK0A6i3NNAl+WQqrb
5GDoWz4qur81N6ygFPrc5PZu4vIRId+oHllcCsTA56FeDh8dUJyUSOSUwtTP
M2I7ivkoQNWs/nVVKVQ+dPBozuSjSm2B02h7KVQdlQu8FsVHZ8xmo1wXc+Gy
V9xs5SE+euRj1W57kQt1D4usjVubEHHzJ6T6caG0wsNiUNCEuhIfPO7z58IG
OkQxideEdMpa7C6HcEGXztv9o7oJsWXO8ZOYXJh7UGfcm9WEWnNCar4858I5
/2vJ7Q+akErvy0KnVi6UL3UacdrbhJJOyN3y2vEGxr8uy1mS14gkkuUPFciW
wYjtVgsbWx7auerkfqXGMhB29M+z/l6PFPU/7KfS3sKlAeWn1kZ1iBscGhrs
XA7Wyx+M3hl4jxpX+wk8NN+BWtBU80rtKuR7mLk2Yewd/NFwX2KL3qLvFQOv
u4sqoIfJhkKrUjSBLph73qwE+YwDrEMHipCLjP74isNVcFTq3ZChzHNUkG4k
mJSvhrjeRYHznrgiZulZtnR3NWx/Ct4z1DPYotraQGTUgL+C32SYUzEEzvEb
zAt4Dyf/fJ71i3wDq4m92nt3fQA91QKBXlIVZJaej5eS+gjDjY8i70EdsCpe
SIm3fASe4oP3XSsbIVXGKGf541qoYeXvl/kugMvHRDYX6NWBUqXjo/zqFnDz
HH/sG1sHKkliHQEybVCVfjdp50QdHLGJ10pa0wHuaqYqRg71QP5xny4K74KK
8rm6UFEP83iPBnoHu4HJ9OMfXt0A/o4KdZmmvfAwfkI08k4DcDxWRM3w+kG2
XOVdw48GsDhyejJt/xBsVXVQXmvNAynblcp+539AEVn4M6OYBybSer+z64ch
/lLuaUPFRqiqtV7orj0CXH/q4KeQRvhQX/ElPWsUDie5fonraIS2gJHqfcrj
kNxvNO28rQlWpkUYSUZNgH6QUsKhrCYIOVA+81B7EvQMntQelObDxTjSJbhw
Ci7+veGmlw8fyj6vOGTg9hvcLfvrn7bwYWDU8bNg1QzworcXfDMWwI1IY+/0
mlkIUc5T3JUmgCWG/PyOWhEioRzJsxk0XI6dq3QlV5RwThp8ut2JBm9V8Sj/
O3OIK0W6BX3vaTBZ/KmkPVyMmBmWOZGqK4RFMVuny3zEiZ63vUY2a4VAZW/o
/3FJnGiI4yrM0RdCckmRqWqgOPHc1KvulKEQ5judlgq4Lk5YR9SZqRsLoWT6
5bYNseJE6vI72sk7hdAneUOfWyxOmFvN//XIUQi5UZSS+rQ4sW5FV6OlkxDQ
QuNTx2bFCaUx6uWfs0I4bpEoFSPGIL4/dHU9cV4IbYXzbsybzyDiu6s/q3gJ
YXtup9q4CoPoC4woTwwSwtGG3+2dWxhEo/Wp1D0hQgh/8PGIhhmDKNEwCp6+
KgR1dvY6RwsGcb+qZ5PddSE80U+Q7rJiECbyO7OVIoUQ9TH4bJ8Dg9DsUYuo
ZgphkiU6puPEIBZRE04Bd4QwV/ZZt6cLg/jq8FytOVoIZstOjYx7MYi69cG/
I2KEEHYk8C9jPwZBShwRGsUKwUWmIjI4gEGkCfWKeuOE0Lpoq8fbIAYRlS1x
PyFBCKYqQ/mSoQzi/xe7YnE=
              "]]}, "Charting`Private`Tag#1"], 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.365248, 0.427802, 0.758297], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              Dashing[{Small, Small}]], 
             Line[CompressedData["
1:eJwllHk41Hkcx2c77LM6palpCFGUp0lS7CT70SaxZR01UynlCKVjeMTGNoyN
x7ENcmWmcWaWVI6nSYbR17gmVObm5ygmw/x0bvu4sra1z/7xet7P68/3P69N
gQyf4EUEAsFjgf+200P7iMMRguVzgxQOB4fYkpLTJUVC8M3BL+Xk4rB90m/p
Pb4QMk+LvTNu4ZDJU9Pra4Uw+S7cKCkVhxNvJbPqTiG0r5BWhcfgMJZSCWu/
CCHEM1116CQOi9sY3em+DVAp17eYIuHgtPeL5oZRI+zEFj/1ydfBS7sT5NEm
EVwbYnwITRiH1Y9cBWkuT8HNznJo5voYWGofZiW3IsgU2RfymVrYvqZ6H7O2
GchO4pNV50eh4KrnyMlIMdiuylPsCnkDPL+1aREHWyCpb/SQ4c8a0Csm0gSG
reCjYqevchwBty1nvcnKViixSMhO3jsMJNsX3o1lbRAlH9zyxO0ViONv3IgP
bYdKwpES+v5BUFpF916x7ABpLkNMcemHKDrbhjPZAdc2JKtFRn3wUfKufqxO
AhRnu/MHSGqYRuGujJRnEE5TfEjAFXDBwHbKnN4JpTIr8kybDAR8au8ssQty
RzYldqf1ALs5RLRsrAuI8wNN6/Z0ww8mg3Lnim7oOoM+eW2TAHNR9Pua2OcQ
VpC2Yq6jBaycj1gfcX8BlUeZ41s/i+Bec1i+vv5LIMw6/EGdEIBQ8lB/ycBL
yK1JjDgWVgGlBtQqs8IeIKxmTmk8M+FXX8JewQ4p0Mpv0WTmGegSY6owKm/B
x0PjuIb3UCc/k+c2LQWCZVBA4B0BumzqZEz1lwGrsKV6vW8TkrR/SwGJDCqd
KvZMT7cgNjtaTbeSg0p7kPvXTAfi5k9/czNDDoTaubUsr25k2G7cIf8kB2v7
lLyNZ3rQfhN/IxsvBdRM0cb592WoruHx54onCmh+E7kySaFA+deqA3eTlDBM
ma+/pFYhcUzjsSGWEnxTs67wlvQhOu/i69saJUj3Z5crV/Sj4rfUudAfVUDL
fu2oWj6IbOPIHFrlgk85DGx0eIV27CrqObZMDVsG5uMcTIZR5Db7lIirahhu
1RIT7UfQZY+3srsDajCLiewXuGuQIstFMO7YC/2DdcMXfnqDWEY1JPeyXqC5
s961+I8iTjsiipb2gfO5r9Tic1oUynt/1yW4D5oOb34cEDSGrtdRBBPP+2DS
sWeP5Jdx9M+fBn6lFAz4/TYzNTE6pGvDqT42GIQFMrg743RIflu8bpEtBrsm
qvbV/KZD5U4R0oDdGDTMUhKqf9chr1TpgU2OGKhI2/WrCnSo1CzDutgNg6XH
txrfF+uQq+fymYIgDIIVZs7873C003xU6RGMgfUpf83mlTgiTzbWzodg8ElT
lFi2BkcfuRcv+oVhwPxs0nnXCEf5Y12vjCMwyDXY6FNKwdEEM7X9ThwGzzw3
nCvyxpHSK6D0MAuDtN4TeqZ0HD21oMbPJWDgdTa/otAXR9mduu9PJWEwdGX9
+4IgHO0juj0g38Rgkk2M5kXhyFJnmtrFxqCeSCMZx+JodeN0cGwGBqyCnIY7
cTjS+peb9mdhoP/Q8Cs3GUdSu/i/U3MW/u4+WkK+iaMGveMYNQ8DrijrADcT
R2XYjjr8Ngb+LnLthlwcpT/Qy+ZwMDD/v1/oX91EivM=
              "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.1, 0.4}, {-0.7999999673469385, 
            2.6889833430209635`}}, "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {0.10000000000000023`, 0}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.365248, 0.427802, 0.758297], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              Dashing[{Small, Small}]], 
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.1, 0.4}, {-0.7999999673469385, 
           2.6889833430209635`}}, "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0.10000000000000023`, 0}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.365248, 0.427802, 0.758297], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{Small, Small}]], 
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         Line[CompressedData["
1:eJwV1Hk0Ve0XB3DiKtRbMiREUvIKRX6V0D6laBJplJKSJFOEN8pQlJSrkgxR
IQqvkAzdc+71uEmmynC591xUpmQumULxe94/znrWZ5111nPW3vu71U972jjN
ERER4eLnv7PK8uurhAQWdNfKNuul0yggJeV4yhMWPOhXiEjB1hk7wchMZ8Gl
YQ8lmWc0upvEP/z6JQvcPw187cbe9iN6FhWzoCNxcrnlcxqNmlllVHBYgMa0
iDzso/0Vk/wqFnhIkDruGTSSgrDUz7UsyNorMv0Omx1N7OluYkG0pUHuskwa
qW1mJY21s0AqVK2Gi13H9N3x5xsLvjI46xdm0ehau/6Q+BALjrRJhdlid9/M
ArkpFuzR8v/UhR3ferZHWYSEyCz/b6v+pdHudRr3NCRISM3pa3bEfiFI7DBY
TILryZZgPrb9mqO3NyuSoPd9k4F0No0WBcsZblMlYebdm1oTbB9N5vX92iSM
Kcp9jMXWDNilZ7uOBN89xWsRNv2BIXDYQMLNjVuCurBvqb8JPmdCwvACBVLi
BY1MfIO0LmwjYTf1b+cq7KHKzfX/7CTBusd1eit2ssqEf/A+EsSm3ojaYdtc
eLUi/CAJZTLLJi5gi731rIk6RkLfgu6WUOyCJTo+sQ4kBEZE5N3HPuvao/L4
LAntrd6+ydiKKK083Y2Et8sWrMnCrl58yuOFNwmX1crq87CvnF22pPASCZoX
Z10KsPVIIWIHkdDrrDP6n9sWxJ57G0bCRumCC/nY0adsZN7fwvXQEmnLxt5e
+BfJu0tC+Z6AbWnY4/NqTrfEkvCLfTs+HjvjeLh0ZxIJW64/6ojAts0zK+hL
JeGCm6L6JWwpcZETPzNIGJ08c9ARm32EzZjKIWHcp//KHmyPfy/liBaS4N8l
m7gOe/ms4RFJioTahea5i7EbbIZnF3FJYAb1soZxvcOevchQrMDvLzlRH7A3
TLnsX/6BhFtz1QueYX+z1JxazSMhZvRa2hXs+JSO1LVCEmRrhiOtsHePPd6z
8QsJ5wU8dzXsnKQlj8z78f/ejlAqwvPh8IO3Y98wnp8YrW9XsBdvvzt0aIIE
k7j6FwS2X/88wkmMgo1pTdoIz58WlPe4SVKgpjHV7o/dHH31ns9CCvhhVIw+
tunmqY5QZQq6NqcPxeH5XpkvcFywgoKJ1oZEwJbSLuyK1aJg1XJ51InzwV96
oTvzfxQci69zUf8vL/csndebUOB4Y8dPEufrqeSaHvY2Cr6Ev/tpjX1h8mtv
rRW+/2XbCW+cz8NeZedtD1NgIHax6g/Os0lvcn/HcQo6OWK517ElhXaDYy4U
VFks7LuVRqPU1/U/lMMosFXboeuaSqOb63K90m9RwLU382tOwf3JiPypd4+C
7ifypubYxvEWo1sfU5Ajp2wum0yjxn84E86vKdAwaLEJfUQjiY2ZM68GKAjZ
WYKoOBoN5NwINh2h4KDhOtWRWNxPzTMiFZMU5A51i67GfqKgNqdZgg27s0aP
hcXQaNN4DENEnQ3O87c4yN+j0fnCkPl7D7HB88uM8r0IGlnr2jOb7NiwPpAj
fu8m7n+68V8nT7MhZMs3f2Y4zs+D8YXenmy4PWwsfeU6jZJ83GTjI9ggor2U
v/YqjT6uP6rUxWGDadxG95//0KhmEBXMlLGB15skWedHo8rnq62WVrPB0P5J
ZpYvjd4oT4Tu4+PvDzSPHb5IoyKx2MHXQ2zo/fqq8rYHjR7zeKVMNQ7If8x+
evYMjRKZxnYZqzjQnHw/Vc4Rz5/F07E3azigGHg5C53C+aK8tX9t5IBrVDJ/
/kka3XgqE3PamgM5Wr6ZobY08rxo5bzxKgf86APXOi1p5KZbLGoTzgFzxu1N
p/fienxTTXJjckA/fPz3p900OmM3VJeSwAHN73kv31vg/WvG3Dw/nwM7fj/g
3dhKI0K2ZkF7Bwdmo5PBwxDvu1fmBbe2l8BUZEintCLeZ1alz2/sLgHdNcrO
GxRolDJglHjNugQyIrPV7OVoZKCpey3geAm8smtYl76IRgcSZK3P+5TA4ulf
zTKSNIoNbuvflVYC5vZZkU6TAqS8N0BDUhzBJ7+Hlr8EAtTVM6LAkEJw4tCK
X1VNApR93V1KdBGC6ap9bfE8ATJBDsO/lBH4MFPO69UKkL2BBepZj2Duscse
m94JULKinF2lI4JnC0fcKl8JkObXF9HhZQgakeuC5kgB0ni2055RjeCMlsi8
ZbcEaLlz59+hdQhOGvx5fzxcgJR6FblBnxB8c/EqbrgqQAsGQ7/7TiDYtWlK
Id5PgAKmdDTz5UvhesbrHREnBchhjlho8q5S0Eabrs1dK0A6i3NNAl+WQqrb
5GDoWz4qur81N6ygFPrc5PZu4vIRId+oHllcCsTA56FeDh8dUJyUSOSUwtTP
M2I7ivkoQNWs/nVVKVQ+dPBozuSjSm2B02h7KVQdlQu8FsVHZ8xmo1wXc+Gy
V9xs5SE+euRj1W57kQt1D4usjVubEHHzJ6T6caG0wsNiUNCEuhIfPO7z58IG
OkQxideEdMpa7C6HcEGXztv9o7oJsWXO8ZOYXJh7UGfcm9WEWnNCar4858I5
/2vJ7Q+akErvy0KnVi6UL3UacdrbhJJOyN3y2vEGxr8uy1mS14gkkuUPFciW
wYjtVgsbWx7auerkfqXGMhB29M+z/l6PFPU/7KfS3sKlAeWn1kZ1iBscGhrs
XA7Wyx+M3hl4jxpX+wk8NN+BWtBU80rtKuR7mLk2Yewd/NFwX2KL3qLvFQOv
u4sqoIfJhkKrUjSBLph73qwE+YwDrEMHipCLjP74isNVcFTq3ZChzHNUkG4k
mJSvhrjeRYHznrgiZulZtnR3NWx/Ct4z1DPYotraQGTUgL+C32SYUzEEzvEb
zAt4Dyf/fJ71i3wDq4m92nt3fQA91QKBXlIVZJaej5eS+gjDjY8i70EdsCpe
SIm3fASe4oP3XSsbIVXGKGf541qoYeXvl/kugMvHRDYX6NWBUqXjo/zqFnDz
HH/sG1sHKkliHQEybVCVfjdp50QdHLGJ10pa0wHuaqYqRg71QP5xny4K74KK
8rm6UFEP83iPBnoHu4HJ9OMfXt0A/o4KdZmmvfAwfkI08k4DcDxWRM3w+kG2
XOVdw48GsDhyejJt/xBsVXVQXmvNAynblcp+539AEVn4M6OYBybSer+z64ch
/lLuaUPFRqiqtV7orj0CXH/q4KeQRvhQX/ElPWsUDie5fonraIS2gJHqfcrj
kNxvNO28rQlWpkUYSUZNgH6QUsKhrCYIOVA+81B7EvQMntQelObDxTjSJbhw
Ci7+veGmlw8fyj6vOGTg9hvcLfvrn7bwYWDU8bNg1QzworcXfDMWwI1IY+/0
mlkIUc5T3JUmgCWG/PyOWhEioRzJsxk0XI6dq3QlV5RwThp8ut2JBm9V8Sj/
O3OIK0W6BX3vaTBZ/KmkPVyMmBmWOZGqK4RFMVuny3zEiZ63vUY2a4VAZW/o
/3FJnGiI4yrM0RdCckmRqWqgOPHc1KvulKEQ5judlgq4Lk5YR9SZqRsLoWT6
5bYNseJE6vI72sk7hdAneUOfWyxOmFvN//XIUQi5UZSS+rQ4sW5FV6OlkxDQ
QuNTx2bFCaUx6uWfs0I4bpEoFSPGIL4/dHU9cV4IbYXzbsybzyDiu6s/q3gJ
YXtup9q4CoPoC4woTwwSwtGG3+2dWxhEo/Wp1D0hQgh/8PGIhhmDKNEwCp6+
KgR1dvY6RwsGcb+qZ5PddSE80U+Q7rJiECbyO7OVIoUQ9TH4bJ8Dg9DsUYuo
ZgphkiU6puPEIBZRE04Bd4QwV/ZZt6cLg/jq8FytOVoIZstOjYx7MYi69cG/
I2KEEHYk8C9jPwZBShwRGsUKwUWmIjI4gEGkCfWKeuOE0Lpoq8fbIAYRlS1x
PyFBCKYqQ/mSoQzi/xe7YnE=
          "]]}, "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         Line[CompressedData["
1:eJwllHk41Hkcx2c77LM6palpCFGUp0lS7CT70SaxZR01UynlCKVjeMTGNoyN
x7ENcmWmcWaWVI6nSYbR17gmVObm5ygmw/x0bvu4sra1z/7xet7P68/3P69N
gQyf4EUEAsFjgf+200P7iMMRguVzgxQOB4fYkpLTJUVC8M3BL+Xk4rB90m/p
Pb4QMk+LvTNu4ZDJU9Pra4Uw+S7cKCkVhxNvJbPqTiG0r5BWhcfgMJZSCWu/
CCHEM1116CQOi9sY3em+DVAp17eYIuHgtPeL5oZRI+zEFj/1ydfBS7sT5NEm
EVwbYnwITRiH1Y9cBWkuT8HNznJo5voYWGofZiW3IsgU2RfymVrYvqZ6H7O2
GchO4pNV50eh4KrnyMlIMdiuylPsCnkDPL+1aREHWyCpb/SQ4c8a0Csm0gSG
reCjYqevchwBty1nvcnKViixSMhO3jsMJNsX3o1lbRAlH9zyxO0ViONv3IgP
bYdKwpES+v5BUFpF916x7ABpLkNMcemHKDrbhjPZAdc2JKtFRn3wUfKufqxO
AhRnu/MHSGqYRuGujJRnEE5TfEjAFXDBwHbKnN4JpTIr8kybDAR8au8ssQty
RzYldqf1ALs5RLRsrAuI8wNN6/Z0ww8mg3Lnim7oOoM+eW2TAHNR9Pua2OcQ
VpC2Yq6jBaycj1gfcX8BlUeZ41s/i+Bec1i+vv5LIMw6/EGdEIBQ8lB/ycBL
yK1JjDgWVgGlBtQqs8IeIKxmTmk8M+FXX8JewQ4p0Mpv0WTmGegSY6owKm/B
x0PjuIb3UCc/k+c2LQWCZVBA4B0BumzqZEz1lwGrsKV6vW8TkrR/SwGJDCqd
KvZMT7cgNjtaTbeSg0p7kPvXTAfi5k9/czNDDoTaubUsr25k2G7cIf8kB2v7
lLyNZ3rQfhN/IxsvBdRM0cb592WoruHx54onCmh+E7kySaFA+deqA3eTlDBM
ma+/pFYhcUzjsSGWEnxTs67wlvQhOu/i69saJUj3Z5crV/Sj4rfUudAfVUDL
fu2oWj6IbOPIHFrlgk85DGx0eIV27CrqObZMDVsG5uMcTIZR5Db7lIirahhu
1RIT7UfQZY+3srsDajCLiewXuGuQIstFMO7YC/2DdcMXfnqDWEY1JPeyXqC5
s961+I8iTjsiipb2gfO5r9Tic1oUynt/1yW4D5oOb34cEDSGrtdRBBPP+2DS
sWeP5Jdx9M+fBn6lFAz4/TYzNTE6pGvDqT42GIQFMrg743RIflu8bpEtBrsm
qvbV/KZD5U4R0oDdGDTMUhKqf9chr1TpgU2OGKhI2/WrCnSo1CzDutgNg6XH
txrfF+uQq+fymYIgDIIVZs7873C003xU6RGMgfUpf83mlTgiTzbWzodg8ElT
lFi2BkcfuRcv+oVhwPxs0nnXCEf5Y12vjCMwyDXY6FNKwdEEM7X9ThwGzzw3
nCvyxpHSK6D0MAuDtN4TeqZ0HD21oMbPJWDgdTa/otAXR9mduu9PJWEwdGX9
+4IgHO0juj0g38Rgkk2M5kXhyFJnmtrFxqCeSCMZx+JodeN0cGwGBqyCnIY7
cTjS+peb9mdhoP/Q8Cs3GUdSu/i/U3MW/u4+WkK+iaMGveMYNQ8DrijrADcT
R2XYjjr8Ngb+LnLthlwcpT/Qy+ZwMDD/v1/oX91EivM=
          "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.1, 0.4}, {-0.7999999673469385, 
        2.6889833430209635`}}, "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {0.10000000000000023`, 0}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000023`, 0},
  BaseStyle->16,
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{
    Directive[
     GrayLevel[0.5]], 
    Dashing[{0, Small, Small, Small}], 
    TagBox[
     ConicHullRegionBox[{{1, 2}, {1, 4}}], "InfiniteLine"], 
    Directive[
     GrayLevel[0]], 
    Dashing[{0, Small, Small, Small}], 
    TagBox[
     ConicHullRegionBox[{{0.25, 2}, {0.25, 4}}], "InfiniteLine"], 
    Directive[
     GrayLevel[0]], 
    AbsoluteDashing[{}], 
    TagBox[
     ConicHullRegionBox[{{0.22262288119570278`, 2}, {
       0.22262288119570278`, 4}}], "InfiniteLine"], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Equilibrium T;\\n lies below \\!\\(\\*SubscriptBox[\\(\[Lambda]\
\\), \\(G\\)]\\)\"", FontFamily -> "Times", 13.5, 
            GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style[
         "Equilibrium T;\n lies below \!\(\*SubscriptBox[\(\[Lambda]\), \
\(G\)]\)", FontFamily -> "Times", 13.5, 
          GrayLevel[0]]]], TraditionalForm]], {0.16, 2}], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"\\!\\(\\*SubscriptBox[\\(\[Lambda]\\), \\(G\\)]\\)\"", 
            FontFamily -> "Times", 16, 
            GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style[
         "\!\(\*SubscriptBox[\(\[Lambda]\), \(G\)]\)", FontFamily -> "Times", 
          16, 
          GrayLevel[0]]]], TraditionalForm]], {0.27, 2}], 
    Directive[
     GrayLevel[0]], 
    ArrowBox[{{0.15, 1.4}, {0.22, 1}}]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {
     FormBox[
      TagBox["\"T\"", HoldForm], TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{{{0, 
       FormBox["0", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}, {2, 
       FormBox["2", TraditionalForm]}}, {}}, {{{0, 
       FormBox["0", TraditionalForm]}, {0.1, 
       FormBox["0.1`", TraditionalForm]}, {0.2, 
       FormBox["0.2`", TraditionalForm]}, {0.3, 
       FormBox["0.3`", TraditionalForm]}, {0.4, 
       FormBox["0.4`", TraditionalForm]}}, {}}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->250,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotLabel->FormBox[
    StyleBox[
    "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Beta]\\), \\(^\\)], \
SubscriptBox[\\(\[Lambda]\\), \\(G\\)]]\\)>0\"", 18, StripOnInput -> False], 
    TraditionalForm],
  PlotRange->{{0.1, 0.4}, {-0.7999999673469385, 2.6889833430209635`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.905264449664847*^9, 3.905264454107751*^9}, 
   3.905264628905393*^9, 3.905273488691065*^9, 3.905281821319737*^9, 
   3.905360780824138*^9, 3.964542533093164*^9, 3.964543044831257*^9, 
   3.964543077902981*^9, 3.9646086051058493`*^9, {3.964608639726205*^9, 
   3.964608758636986*^9}, 3.964609353489455*^9, 3.9646094363364277`*^9, 
   3.964609494115633*^9, {3.96460952685721*^9, 3.964609536187902*^9}, {
   3.9646095792478437`*^9, 3.964609586766069*^9}, {3.964609704534856*^9, 
   3.964609780459776*^9}, 3.9654900899147263`*^9, 3.972600930547429*^9, 
   3.972652818457684*^9, 3.97265314787399*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"8cb1edcd-0380-4907-a6ae-332435f06756"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", ".1"}], ",", 
     RowBox[{"\[Sigma]\[Beta]", "=", ".5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "2"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "2"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", "1"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".25"}]}], "}"}], ",", "\[IndentingNewLine]", 
   
   RowBox[{
    RowBox[{"ept", "=", 
     RowBox[{"xp", "/.", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"climdelta", "[", 
           RowBox[{
            RowBox[{"INCDF", "[", 
             RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
             "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
            "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "==", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{"xp", ",", ".1"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"eqpt", "=", 
     RowBox[{"xp", "/.", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"betaexp", "[", 
            RowBox[{
             RowBox[{"INCDF", "[", 
              RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
              "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
             "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
             "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "-", 
           RowBox[{"mktexp", "[", 
            RowBox[{
             RowBox[{"INCDF", "[", 
              RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
              "]"}], ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
             "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
             "\[Kappa]", ",", "\[Lambda]G"}], "]"}]}], "==", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{"xp", ",", ".1"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"betaexp", "[", 
         RowBox[{
          RowBox[{"INCDF", "[", 
           RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}],
           ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",",
           "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
          "\[Lambda]G"}], "]"}], ",", 
        RowBox[{"mktexp", "[", 
         RowBox[{
          RowBox[{"INCDF", "[", 
           RowBox[{"xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}],
           ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",",
           "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
          "\[Lambda]G"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"xp", ",", ".1", ",", ".8"}], "}"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{",", "Dashed", ",", "DotDashed"}], "}"}]}], ",", 
      RowBox[{"BaseStyle", "->", "16"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", "Gray", "]"}], ",", "Dashed", ",", 
         RowBox[{"InfiniteLine", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Directive", "[", "Black", "]"}], ",", "DotDashed", ",", 
         RowBox[{"InfiniteLine", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\[Lambda]G", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"\[Lambda]G", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Directive", "[", "Black", "]"}], ",", 
         RowBox[{"AbsoluteDashing", "[", 
          RowBox[{"{", "}"}], "]"}], ",", 
         RowBox[{"InfiniteLine", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"eqpt", ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"eqpt", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Directive", "[", "Black", "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0.45", ",", 
              RowBox[{"-", "1.8"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0.28", ",", 
              RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"Style", "[", 
             
             RowBox[{"\"\<Equilibrium T;\\n lies above \!\(\*SubscriptBox[\(\
\[Lambda]\), \(G\)]\)\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "13.5",
               ",", "Black"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.45", ",", 
             RowBox[{"-", "2.45"}]}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<\!\(\*SubscriptBox[\(\[Lambda]\), \(G\)]\)\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "16", ",",
               "Black"}], "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.21", ",", 
             RowBox[{"-", "2.2"}]}], "}"}]}], "]"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotLabel", "->", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\!\(\*SubscriptBox[OverscriptBox[\(\[Beta]\), \(^\)], \
SubscriptBox[\(\[Lambda]\), \(G\)]]\)<0\>\"", ",", "18"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", "\"\<T\>\"", "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameTicks", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "3"}], ",", 
             RowBox[{"-", "2"}], ",", 
             RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2"}], "}"}], ",", 
           "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", ".2", ",", ".4", ",", ".6", ",", ".8"}], "}"}], 
           ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.905263579045277*^9, 3.905263588471353*^9}, {
   3.905263655765184*^9, 3.905263704144886*^9}, {3.905263761781153*^9, 
   3.905263770895318*^9}, {3.905264026974869*^9, 3.905264093239785*^9}, {
   3.9052641406958103`*^9, 3.905264146843533*^9}, {3.905264347086006*^9, 
   3.905264405860202*^9}, 3.90526462529277*^9, 3.90527349151082*^9, {
   3.905281814009244*^9, 3.905281814141855*^9}, {3.9645430525734262`*^9, 
   3.96454310966615*^9}, {3.964608024088458*^9, 3.964608049044376*^9}, {
   3.964608079568252*^9, 3.964608170967598*^9}, {3.964608206841652*^9, 
   3.964608234445908*^9}, {3.9646082890328093`*^9, 3.964608347423234*^9}, {
   3.964608458427176*^9, 3.9646085710480547`*^9}, {3.9646087270406733`*^9, 
   3.964608727263372*^9}, {3.964609269839574*^9, 3.9646092912230988`*^9}, {
   3.9646093218299417`*^9, 3.964609340600189*^9}, {3.964609788114861*^9, 
   3.964609816746537*^9}, 3.972600928434147*^9, 3.972652820939446*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"79a5cdab-d520-4904-9590-02c5569dca4b"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "nlnum", 
   "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", \\\"Undefined\\\", \\\"}\
\\\"}]\\) is not a list of numbers with dimensions \
\\!\\(\\*RowBox[{\\\"{\\\", \\\"1\\\", \\\"}\\\"}]\\) at \
\\!\\(\\*RowBox[{\\\"{\\\", \\\"xp\\\", \\\"}\\\"}]\\) = \
\\!\\(\\*RowBox[{\\\"{\\\", \\\"1.2948147077898107`\\\", \\\"}\\\"}]\\).\"", 
   2, 26, 2, 30292245187474260244, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{
  3.905360787310212*^9, 3.964542535029499*^9, {3.9645430532615147`*^9, 
   3.964543070541444*^9}, {3.964543103281403*^9, 3.9645431099707212`*^9}, {
   3.96460802900349*^9, 3.964608049364726*^9}, {3.964608080162836*^9, 
   3.964608096745771*^9}, {3.96460813464583*^9, 3.9646081711903257`*^9}, {
   3.964608216961588*^9, 3.9646082347364683`*^9}, {3.964608290935066*^9, 
   3.964608347720964*^9}, {3.9646084590398617`*^9, 3.964608571332694*^9}, 
   3.964608727560865*^9, {3.964609312132723*^9, 3.964609340878009*^9}, {
   3.964609798033432*^9, 3.964609817054701*^9}, 3.9654900917731953`*^9, 
   3.972600928819469*^9, 3.972652821166285*^9, 3.972653149835588*^9},
 CellLabel->
  "During evaluation of \
In[26]:=",ExpressionUUID->"c01614f5-0927-49fa-a2e3-621518a1c707"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwdk2k4FHoDR61RylZKXWS4iRItaOWXci3lqlBZWoTSQslWUopxUVkSKlnC
yFLJDMmav1LZEgZjyTBDlkk0Q5Ll1nuf98N5ztfz5VCcL1ifFBESEir4j/97
+DsrIaEESscD3sdZfCNzT4VfPs0qwTNbMYtY/W/E9IJ0/KvCEjDSsr6kUL6R
rsnVNtzmEnCXix1lT48RIVHHRs0FpfBwFauYfDJGLJVfVxddKUWBXxftlswY
GTwQWdzmWIbA+KT0ae5Xoli26qGcyitcX/ZJqyLnC1nAOlisfqkStam2PUFu
g4RF7i0dNHoDb9+EdDnRfpLYWPK26N8qsLkLNIxXccjT82FXT/e9Q3Cs2RXP
8S6y4Ld1VmVmNSrzylUOPmGRFyq1n6bu1ELnS9BJAzqTHHKlOBl51eOkyuZ2
y7KPxCzx0mHtTQ04tlorfLdnLaGeuGw3vbwRo7N3bz2JfktCI7YPGng2Ia3H
UTW1qJIYW1WNMrybMOip9bk+p5LMyeyd1L7UhIV191hCSZXEK9ZBTD2wCR/M
juuF3qgkxx76q8lENIG+LWjfL4tKYpBddGwoqwnbf+q14BUhQ1Wb2u/3NsF3
5G2YrHIFMZ9dW/PTqhmqOyTsuTJlRE2+OpJYN0PcikYifpSSWU1nm9BDzThn
Yq+yl11Knh960LP4WDMuikQ8EHpaShTyxSZ1PJrhkea2/2+zUtJ3mk05ebsZ
4actnFypJeQqKyqguboZX3ZtDDWaX0zyGAKdJzuZWLN9c/5Ri0Li/tZr93oT
JlxfCAt36RcSzfaJwy/NmAhxvRznqlZIUucmb7yxYoLrdPdMxuwLcsdshtl1
hImbPgZjDc9fEC+2yCUpfyY2Xv94+fWyF8Rg/hLizmBCXld7aGIin1Q4GezT
VWvBx+dKXztb6CShpo4irNGC8qvdq/e9oROf9ce/M7VaoCKo5jHpdKIlFJ7g
t6EFL1OlPolH0Unco87+Vztb4Pr7jKeiBZ2c67l62fJ4CyRXeRU2UfOI4pGq
tDNJLShuFJodDMglXof3f6ctbUW8fQI/rCyHJFBDBlxWtCJL6Yjus0c5pDKv
mKWu0grKprlVw9QcskiSUkJb1QrpstszmZY5JLtYcI2m14rz4nI3jHqzSc/y
WAmadSvO2P6eVy2ZTfZ0t61Ij2rF231rnBvdM4naCUfj1HltUA31drTzpRHt
m75BKxe0QYprtu6iE43oM6Jfpyxqg76BrEniXhoxF35rnLykDaPFW2XV1WjE
I01710O1Nrg8ZTb/bkwnxdx/d8UZtaFDrT+gXyedWDmnmoT7teGHiJia0HQq
ueIyYOY52IYTkQ7r/r2UTNI58qbbv7SBNRXguM0mmdQd3Wkyb6wNjx7DIkEn
maywS9yZNPlfT50Jv2wgiZRaHthaI8aC+fzFpjEHk8iM/qs1quosrH0/M+W8
PZH4S8YvajrOAiWQo/dJJYFczjVp0e1kQUwnOWbOKJ4Ea9iplnaz8MtnRLVc
PZ5EPjrnYcJhYecynlCsZDxJj7krYT/EgoLpW4dQZhz54MvZHjzJQvLGqkVB
bnGEYnQ1o1WuHQ4TJUYF8bGk7mOBr/+edoxs7dL1ErlLlPlqilVl7ZBKFDto
viGKmFZYqCeQduz7ZPfurHAU8Yzw1LlQ1Q5laX+bouZI8kazwuSP+nb4+oxM
NHhFklMn7C96d7XDWjfVe+RlBKEzo+vUp9tR6iEvUmJ6m+wqnLsaYtABpXk5
Guuo4eT0FRb3L0YHlP9xOCrnSiXshclSCwo7cOLvtU4thlRi/chF/2NxB1bK
DF1kLKOSHW/54YcqO2C3ukz4dX0wkZOWWu/W2IHFdX0xmvrBpDQNgeGjHRgK
2Rb2bWEQWVibvaJeqxPKm7/+Uk65RvKWBdjsT++EVUxg4zUNX5KcmxKoQ+2C
p/X+XxkODmTD7fs6c36fsH5tPWfR/BNwPyHzINmhGxkv85o6DS6Btudyzvut
bCxvzBHbk0XFqd3NUtGGbOReEZ5q/0DFmh1rzh82ZiOztqD7+jgV9HXdG4fN
2UivbtdRMQpBhezO8vl2bIhmJWcmsELQxZJotPRjw69jgMZYGAp5l/vfmfls
yK/ui4+NCseNgJfoXduDKW9D01vjkdDwnOSf0u3B42EZ+16lKHxw1Usf29iD
vPumzrZmUVC0yhf7tbUHS17c609JigJd9XmtknkPEkYKvUvMo8F999jGwbUH
s5pPnsXY3MEu2Xi3tqQe+Bd8cuitiIHYY+/o+kW9cFHuke3+EIeasXe/UuR6
kXzP3bxoOA6RWxTPeyn0wnZQ9MwTsXgs/VBuuVy5F2tzzlV07IiH1oT4Ajft
XmTbyq+xex4PK+MHISJ7e2HxTD50Mv4eEtjl/lvDe1Gwo/eK6eUHWCYlmm8j
zMHcEEtkVVQSVOXnLuuJctAZwCeS9CRoLp+EgjgHK241j0gyk7Bl9VADS5KD
mhXCA8eWJsNhdz3PXpaDQv1xuktqMpICYilOKznQOH37QH9JClS/qse4G3Kw
QdNbJDsoFVoNJp7/+HMg3Bg3YDqTDjUmveevAA7G1mVeL1hEg1K70t/zrnEg
HvS4XodCgyz3u1bYDQ6CdgYmHTCn4cf3jP7wMA7WJmkvs7hPwxsl8cMR8Rzk
em9aKbElA0fc3xnGMjio4/fL/RvyGNFSplJpPA4GVXjhxCobimVldmEjHJT7
zCkons5G6tkNmR6jHPw+vDk0JCgb+bVKxtsEHLwWrjVMeJENVtiEX8tPDrTD
KBYFf+RARSytT1ySC9l5+cyC0Rw8m5stOavBRV2GvvDmtKeoGWWc1nPhQtz2
WMAH8zzsSnx4dMaVCxG5O9c8Tuah3JxqXXmKC8eNIXZqwXlg0Gx3WJ7lws1y
uKK6LA8P7adkXC9ycXRPtrawIh3n3u0oir3OReHZ6bsro+iQTq4Wn0jkYt6a
m5sWBTNw0JKdzmjlgrJM+2vpzQI46Qkzxnf3gSkds+a3RDGMKqODnpb34Ybf
+txH5BUu1LB1rNb143lDzfmImdfw9rmXcjqrH4pud5n8nneoT5IecV/+GXIO
JQreC+uQZnVdSv/mZxSsGpWuKviIPRkOYz4iA1BJrQo33cyEqd9kbor3AMq9
REwphm1Q+Dqju3NsAH9ydX3Wj3XAeeTnP49PDYJByX1VJPrfd24vi7+zBmFs
sfrGRDoHl0J7csv2DwErIoLDDPphpPb+uvubIQxIFNu9/DwAqlnmKu6GYVgL
IvrKG4aRKCuIbHgyjAvt672W7PsKiUOzTNofPMjKd26J5X/DecpUTqIyD9+M
zwg3C/HR+nX8RuxKHlz8sw2PzOcjnfpFh6rOg+PduV2BK/gwZHTecl7Lw3uj
9Hz+Dj68FxbvomznYeqWUtGdYD563/jkpzjwUExxUq2TFcA0yvPmvSM8PNrN
/9a4XIBn9u5OUcd4yLp5v7lTTYArfBfpQGcebCvYzGk9ARRUbM4ePctDqIev
6Dl7Afb6b1BTusJDiF8tczFNgHyTddOLr/JwVCE61/GZAIqyWk1SgTwc6maV
ZBUKMJipGjgbxMO8rOnzljUCBLXKdHXd5CF2YHNIzagAw4+kGMzbPDCt6eob
pwSwOicRXhfJQ2r3F7FUoXEoifzWL43hoSWzLy588TioDTML82N5GO17bSaq
PI4vD37058TzcMwgyyRYYxz7XcdL0+7zUH8xK1J8/TiKdMdiEhJ48OZ3/Bm5
dRz/AxQIrVw=
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0.365248, 0.427802, 0.758297], AbsoluteThickness[1.6], 
         Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwV1Ps31GkcwPFhmK8QUqJdFKVIyFHRhU+WKCISoZRbmyPFxjYajkuTWixS
IWtTKB00aqaSy+p5yIrKbWKqcZcZ85QsDjEua7cf3uf1H7z1AsMPn5Kl0Wgu
//fdJ5IpQW5uFaSo8iJycwkslMlUlD2oAnmrI+ZW1wg4hKtk1T6rApb/twnB
FQLC6U0egx1VEMHdFbkqigCNfqzNULEavDxe/prhSuCgTt2r56xq2JDTyUqi
ExC7p1V2HauBat2Zy7+clYBWjcEfK3RrYdJkT+4B2xFQFHhWrmdimLK0Uoyp
GAYByl4ttqmHPTRLyxavIchrq2p4vvgStn7hSRXpA1B27mpsyNDfkMK2XXZT
KgTFpcMPcPErsObo53jYCeCpbnP3zLVmMCgfeaZh2AFewXr+NuffwLjEZcnv
QBM45jGPbrFoAcXecvlNfbXADoj2lq5pg4SUwrtWxkVw5ffd4h0R7UCrG13W
8aQQ7Z83bpp17YDS8SPlap9r0CPuhGnpXj5Mr1B30qSa0Av/HYfM9N+Bkw+z
2L2iHZ0/6jZVtLoT/PkymhqtXUg/4JjtXUYXKDKuH5dpFSJWkMgxQtwF22u1
Nz9k9qNojv07s48CyGoNsNhsN4R0xvW1Xta8B5cEXpbfnWEUwhIM7uN+gFCH
zEeqpiPokWaMh1vhR+CTSQvBY4Juc/LjTNlCmG11X4hRGEXmqTmmCxe64VKT
Tezd62MoLED11m3fHhAlrlrHjx5HRU7RJY07e8FUxdnyROEESoipgH7jPii9
t7/USDSJ5O5HZrxZ3g/yPfYoWH0KaSrReR4yA3BdR2Frv/c0Mmqxj0i6OAD1
LcqCoNxvKEPJQamADABfV03Xu2EGNX3lhmwLGgQNlrAuVUGKPA/2FnI7B8Hq
QhFlZjmH/LfJcCfthoA2yLnUc3Ie2eCMxLK/hmDOM96nuWABhTf1mrqafAL+
mUN8g9ZFFBmVnR/y4BP0poqL61YuoTd/qnwJWzMMpza+SBfr0XCBa7zS9uRh
2PKiJHiigoad7vmORcmKYHl3tCTPWwY7XJjm5EeKwG+/o3XcPzJYY3TObO+Y
CBp3SYF2QxYHfplNuv+zGC4PO/tdtaBj+umKyimBGMr7bjs7NNMx80ofp8Zt
BKb83o3cOyOHbfQb48PqR6DERMFzN10esx2LDQbNJcB52tsjyJHHeWoTaS2l
EmjH2erqOxmY8prnF/1IwF/n0JqkNgY+pzdTkqdDwOZ9/tAGPgN3jk4m3FhL
QDtzrKyhk4EL2Z9N2esJfJBLt5ETMrA192NKoDEB99G3QexhBo5UrvxJbzeB
fTVO5YlSBu6vj+Ll+xIw8nGwi1tPYYf0iOTs4wQUVmYr626k8EOfMP/0EwRE
b0VdtYYUZo0HqcQFEijcmxSyaEJhDV2PUL9QAjqGDWmxVhR2vmiur80ioDZj
+4HlQmGevYl0ZSyBsceZBT+4UVhLzahdKY7A69DB0OrDFBYXr4ubTySQ3Jew
KD1K4cROVaEwmYBsI9K/GEhhyR0lLj+VwEC86qjWKQq7nqF+e51GoHbnyWeV
pymsLbu0vTqTQCznX8fZMAqzW+aUeTcI+J52XXErnMKfb337VJJFwEovX2h5
nsJuwZPVBTkENLq/Fr2PovBzs7HM79+avml9lsmk8H/X2HMY
          "]]},
        Annotation[#, "Charting`Private`Tag#2"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]], 
             Line[CompressedData["
1:eJwdk2k4FHoDR61RylZKXWS4iRItaOWXci3lqlBZWoTSQslWUopxUVkSKlnC
yFLJDMmav1LZEgZjyTBDlkk0Q5Ll1nuf98N5ztfz5VCcL1ifFBESEir4j/97
+DsrIaEESscD3sdZfCNzT4VfPs0qwTNbMYtY/W/E9IJ0/KvCEjDSsr6kUL6R
rsnVNtzmEnCXix1lT48RIVHHRs0FpfBwFauYfDJGLJVfVxddKUWBXxftlswY
GTwQWdzmWIbA+KT0ae5Xoli26qGcyitcX/ZJqyLnC1nAOlisfqkStam2PUFu
g4RF7i0dNHoDb9+EdDnRfpLYWPK26N8qsLkLNIxXccjT82FXT/e9Q3Cs2RXP
8S6y4Ld1VmVmNSrzylUOPmGRFyq1n6bu1ELnS9BJAzqTHHKlOBl51eOkyuZ2
y7KPxCzx0mHtTQ04tlorfLdnLaGeuGw3vbwRo7N3bz2JfktCI7YPGng2Ia3H
UTW1qJIYW1WNMrybMOip9bk+p5LMyeyd1L7UhIV191hCSZXEK9ZBTD2wCR/M
juuF3qgkxx76q8lENIG+LWjfL4tKYpBddGwoqwnbf+q14BUhQ1Wb2u/3NsF3
5G2YrHIFMZ9dW/PTqhmqOyTsuTJlRE2+OpJYN0PcikYifpSSWU1nm9BDzThn
Yq+yl11Knh960LP4WDMuikQ8EHpaShTyxSZ1PJrhkea2/2+zUtJ3mk05ebsZ
4actnFypJeQqKyqguboZX3ZtDDWaX0zyGAKdJzuZWLN9c/5Ri0Li/tZr93oT
JlxfCAt36RcSzfaJwy/NmAhxvRznqlZIUucmb7yxYoLrdPdMxuwLcsdshtl1
hImbPgZjDc9fEC+2yCUpfyY2Xv94+fWyF8Rg/hLizmBCXld7aGIin1Q4GezT
VWvBx+dKXztb6CShpo4irNGC8qvdq/e9oROf9ce/M7VaoCKo5jHpdKIlFJ7g
t6EFL1OlPolH0Unco87+Vztb4Pr7jKeiBZ2c67l62fJ4CyRXeRU2UfOI4pGq
tDNJLShuFJodDMglXof3f6ctbUW8fQI/rCyHJFBDBlxWtCJL6Yjus0c5pDKv
mKWu0grKprlVw9QcskiSUkJb1QrpstszmZY5JLtYcI2m14rz4nI3jHqzSc/y
WAmadSvO2P6eVy2ZTfZ0t61Ij2rF231rnBvdM4naCUfj1HltUA31drTzpRHt
m75BKxe0QYprtu6iE43oM6Jfpyxqg76BrEniXhoxF35rnLykDaPFW2XV1WjE
I01710O1Nrg8ZTb/bkwnxdx/d8UZtaFDrT+gXyedWDmnmoT7teGHiJia0HQq
ueIyYOY52IYTkQ7r/r2UTNI58qbbv7SBNRXguM0mmdQd3Wkyb6wNjx7DIkEn
maywS9yZNPlfT50Jv2wgiZRaHthaI8aC+fzFpjEHk8iM/qs1quosrH0/M+W8
PZH4S8YvajrOAiWQo/dJJYFczjVp0e1kQUwnOWbOKJ4Ea9iplnaz8MtnRLVc
PZ5EPjrnYcJhYecynlCsZDxJj7krYT/EgoLpW4dQZhz54MvZHjzJQvLGqkVB
bnGEYnQ1o1WuHQ4TJUYF8bGk7mOBr/+edoxs7dL1ErlLlPlqilVl7ZBKFDto
viGKmFZYqCeQduz7ZPfurHAU8Yzw1LlQ1Q5laX+bouZI8kazwuSP+nb4+oxM
NHhFklMn7C96d7XDWjfVe+RlBKEzo+vUp9tR6iEvUmJ6m+wqnLsaYtABpXk5
Guuo4eT0FRb3L0YHlP9xOCrnSiXshclSCwo7cOLvtU4thlRi/chF/2NxB1bK
DF1kLKOSHW/54YcqO2C3ukz4dX0wkZOWWu/W2IHFdX0xmvrBpDQNgeGjHRgK
2Rb2bWEQWVibvaJeqxPKm7/+Uk65RvKWBdjsT++EVUxg4zUNX5KcmxKoQ+2C
p/X+XxkODmTD7fs6c36fsH5tPWfR/BNwPyHzINmhGxkv85o6DS6Btudyzvut
bCxvzBHbk0XFqd3NUtGGbOReEZ5q/0DFmh1rzh82ZiOztqD7+jgV9HXdG4fN
2UivbtdRMQpBhezO8vl2bIhmJWcmsELQxZJotPRjw69jgMZYGAp5l/vfmfls
yK/ui4+NCseNgJfoXduDKW9D01vjkdDwnOSf0u3B42EZ+16lKHxw1Usf29iD
vPumzrZmUVC0yhf7tbUHS17c609JigJd9XmtknkPEkYKvUvMo8F999jGwbUH
s5pPnsXY3MEu2Xi3tqQe+Bd8cuitiIHYY+/o+kW9cFHuke3+EIeasXe/UuR6
kXzP3bxoOA6RWxTPeyn0wnZQ9MwTsXgs/VBuuVy5F2tzzlV07IiH1oT4Ajft
XmTbyq+xex4PK+MHISJ7e2HxTD50Mv4eEtjl/lvDe1Gwo/eK6eUHWCYlmm8j
zMHcEEtkVVQSVOXnLuuJctAZwCeS9CRoLp+EgjgHK241j0gyk7Bl9VADS5KD
mhXCA8eWJsNhdz3PXpaDQv1xuktqMpICYilOKznQOH37QH9JClS/qse4G3Kw
QdNbJDsoFVoNJp7/+HMg3Bg3YDqTDjUmveevAA7G1mVeL1hEg1K70t/zrnEg
HvS4XodCgyz3u1bYDQ6CdgYmHTCn4cf3jP7wMA7WJmkvs7hPwxsl8cMR8Rzk
em9aKbElA0fc3xnGMjio4/fL/RvyGNFSplJpPA4GVXjhxCobimVldmEjHJT7
zCkons5G6tkNmR6jHPw+vDk0JCgb+bVKxtsEHLwWrjVMeJENVtiEX8tPDrTD
KBYFf+RARSytT1ySC9l5+cyC0Rw8m5stOavBRV2GvvDmtKeoGWWc1nPhQtz2
WMAH8zzsSnx4dMaVCxG5O9c8Tuah3JxqXXmKC8eNIXZqwXlg0Gx3WJ7lws1y
uKK6LA8P7adkXC9ycXRPtrawIh3n3u0oir3OReHZ6bsro+iQTq4Wn0jkYt6a
m5sWBTNw0JKdzmjlgrJM+2vpzQI46Qkzxnf3gSkds+a3RDGMKqODnpb34Ybf
+txH5BUu1LB1rNb143lDzfmImdfw9rmXcjqrH4pud5n8nneoT5IecV/+GXIO
JQreC+uQZnVdSv/mZxSsGpWuKviIPRkOYz4iA1BJrQo33cyEqd9kbor3AMq9
REwphm1Q+Dqju3NsAH9ydX3Wj3XAeeTnP49PDYJByX1VJPrfd24vi7+zBmFs
sfrGRDoHl0J7csv2DwErIoLDDPphpPb+uvubIQxIFNu9/DwAqlnmKu6GYVgL
IvrKG4aRKCuIbHgyjAvt672W7PsKiUOzTNofPMjKd26J5X/DecpUTqIyD9+M
zwg3C/HR+nX8RuxKHlz8sw2PzOcjnfpFh6rOg+PduV2BK/gwZHTecl7Lw3uj
9Hz+Dj68FxbvomznYeqWUtGdYD563/jkpzjwUExxUq2TFcA0yvPmvSM8PNrN
/9a4XIBn9u5OUcd4yLp5v7lTTYArfBfpQGcebCvYzGk9ARRUbM4ePctDqIev
6Dl7Afb6b1BTusJDiF8tczFNgHyTddOLr/JwVCE61/GZAIqyWk1SgTwc6maV
ZBUKMJipGjgbxMO8rOnzljUCBLXKdHXd5CF2YHNIzagAw4+kGMzbPDCt6eob
pwSwOicRXhfJQ2r3F7FUoXEoifzWL43hoSWzLy588TioDTML82N5GO17bSaq
PI4vD37058TzcMwgyyRYYxz7XcdL0+7zUH8xK1J8/TiKdMdiEhJ48OZ3/Bm5
dRz/AxQIrVw=
              "]]}, "Charting`Private`Tag#1"], 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.365248, 0.427802, 0.758297], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              Dashing[{Small, Small}]], 
             Line[CompressedData["
1:eJwV1Ps31GkcwPFhmK8QUqJdFKVIyFHRhU+WKCISoZRbmyPFxjYajkuTWixS
IWtTKB00aqaSy+p5yIrKbWKqcZcZ85QsDjEua7cf3uf1H7z1AsMPn5Kl0Wgu
//fdJ5IpQW5uFaSo8iJycwkslMlUlD2oAnmrI+ZW1wg4hKtk1T6rApb/twnB
FQLC6U0egx1VEMHdFbkqigCNfqzNULEavDxe/prhSuCgTt2r56xq2JDTyUqi
ExC7p1V2HauBat2Zy7+clYBWjcEfK3RrYdJkT+4B2xFQFHhWrmdimLK0Uoyp
GAYByl4ttqmHPTRLyxavIchrq2p4vvgStn7hSRXpA1B27mpsyNDfkMK2XXZT
KgTFpcMPcPErsObo53jYCeCpbnP3zLVmMCgfeaZh2AFewXr+NuffwLjEZcnv
QBM45jGPbrFoAcXecvlNfbXADoj2lq5pg4SUwrtWxkVw5ffd4h0R7UCrG13W
8aQQ7Z83bpp17YDS8SPlap9r0CPuhGnpXj5Mr1B30qSa0Av/HYfM9N+Bkw+z
2L2iHZ0/6jZVtLoT/PkymhqtXUg/4JjtXUYXKDKuH5dpFSJWkMgxQtwF22u1
Nz9k9qNojv07s48CyGoNsNhsN4R0xvW1Xta8B5cEXpbfnWEUwhIM7uN+gFCH
zEeqpiPokWaMh1vhR+CTSQvBY4Juc/LjTNlCmG11X4hRGEXmqTmmCxe64VKT
Tezd62MoLED11m3fHhAlrlrHjx5HRU7RJY07e8FUxdnyROEESoipgH7jPii9
t7/USDSJ5O5HZrxZ3g/yPfYoWH0KaSrReR4yA3BdR2Frv/c0Mmqxj0i6OAD1
LcqCoNxvKEPJQamADABfV03Xu2EGNX3lhmwLGgQNlrAuVUGKPA/2FnI7B8Hq
QhFlZjmH/LfJcCfthoA2yLnUc3Ie2eCMxLK/hmDOM96nuWABhTf1mrqafAL+
mUN8g9ZFFBmVnR/y4BP0poqL61YuoTd/qnwJWzMMpza+SBfr0XCBa7zS9uRh
2PKiJHiigoad7vmORcmKYHl3tCTPWwY7XJjm5EeKwG+/o3XcPzJYY3TObO+Y
CBp3SYF2QxYHfplNuv+zGC4PO/tdtaBj+umKyimBGMr7bjs7NNMx80ofp8Zt
BKb83o3cOyOHbfQb48PqR6DERMFzN10esx2LDQbNJcB52tsjyJHHeWoTaS2l
EmjH2erqOxmY8prnF/1IwF/n0JqkNgY+pzdTkqdDwOZ9/tAGPgN3jk4m3FhL
QDtzrKyhk4EL2Z9N2esJfJBLt5ETMrA192NKoDEB99G3QexhBo5UrvxJbzeB
fTVO5YlSBu6vj+Ll+xIw8nGwi1tPYYf0iOTs4wQUVmYr626k8EOfMP/0EwRE
b0VdtYYUZo0HqcQFEijcmxSyaEJhDV2PUL9QAjqGDWmxVhR2vmiur80ioDZj
+4HlQmGevYl0ZSyBsceZBT+4UVhLzahdKY7A69DB0OrDFBYXr4ubTySQ3Jew
KD1K4cROVaEwmYBsI9K/GEhhyR0lLj+VwEC86qjWKQq7nqF+e51GoHbnyWeV
pymsLbu0vTqTQCznX8fZMAqzW+aUeTcI+J52XXErnMKfb337VJJFwEovX2h5
nsJuwZPVBTkENLq/Fr2PovBzs7HM79+avml9lsmk8H/X2HMY
              "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.1, 0.8}, {-2.933333257142858, 
            1.1390506209709457`}}, "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {0.10000000000000023`, 0}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.365248, 0.427802, 0.758297], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              Dashing[{Small, Small}]], 
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.1, 0.8}, {-2.933333257142858, 
           1.1390506209709457`}}, "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0.10000000000000023`, 0}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.365248, 0.427802, 0.758297], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{Small, Small}]], 
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         Line[CompressedData["
1:eJwdk2k4FHoDR61RylZKXWS4iRItaOWXci3lqlBZWoTSQslWUopxUVkSKlnC
yFLJDMmav1LZEgZjyTBDlkk0Q5Ll1nuf98N5ztfz5VCcL1ifFBESEir4j/97
+DsrIaEESscD3sdZfCNzT4VfPs0qwTNbMYtY/W/E9IJ0/KvCEjDSsr6kUL6R
rsnVNtzmEnCXix1lT48RIVHHRs0FpfBwFauYfDJGLJVfVxddKUWBXxftlswY
GTwQWdzmWIbA+KT0ae5Xoli26qGcyitcX/ZJqyLnC1nAOlisfqkStam2PUFu
g4RF7i0dNHoDb9+EdDnRfpLYWPK26N8qsLkLNIxXccjT82FXT/e9Q3Cs2RXP
8S6y4Ld1VmVmNSrzylUOPmGRFyq1n6bu1ELnS9BJAzqTHHKlOBl51eOkyuZ2
y7KPxCzx0mHtTQ04tlorfLdnLaGeuGw3vbwRo7N3bz2JfktCI7YPGng2Ia3H
UTW1qJIYW1WNMrybMOip9bk+p5LMyeyd1L7UhIV191hCSZXEK9ZBTD2wCR/M
juuF3qgkxx76q8lENIG+LWjfL4tKYpBddGwoqwnbf+q14BUhQ1Wb2u/3NsF3
5G2YrHIFMZ9dW/PTqhmqOyTsuTJlRE2+OpJYN0PcikYifpSSWU1nm9BDzThn
Yq+yl11Knh960LP4WDMuikQ8EHpaShTyxSZ1PJrhkea2/2+zUtJ3mk05ebsZ
4actnFypJeQqKyqguboZX3ZtDDWaX0zyGAKdJzuZWLN9c/5Ri0Li/tZr93oT
JlxfCAt36RcSzfaJwy/NmAhxvRznqlZIUucmb7yxYoLrdPdMxuwLcsdshtl1
hImbPgZjDc9fEC+2yCUpfyY2Xv94+fWyF8Rg/hLizmBCXld7aGIin1Q4GezT
VWvBx+dKXztb6CShpo4irNGC8qvdq/e9oROf9ce/M7VaoCKo5jHpdKIlFJ7g
t6EFL1OlPolH0Unco87+Vztb4Pr7jKeiBZ2c67l62fJ4CyRXeRU2UfOI4pGq
tDNJLShuFJodDMglXof3f6ctbUW8fQI/rCyHJFBDBlxWtCJL6Yjus0c5pDKv
mKWu0grKprlVw9QcskiSUkJb1QrpstszmZY5JLtYcI2m14rz4nI3jHqzSc/y
WAmadSvO2P6eVy2ZTfZ0t61Ij2rF231rnBvdM4naCUfj1HltUA31drTzpRHt
m75BKxe0QYprtu6iE43oM6Jfpyxqg76BrEniXhoxF35rnLykDaPFW2XV1WjE
I01710O1Nrg8ZTb/bkwnxdx/d8UZtaFDrT+gXyedWDmnmoT7teGHiJia0HQq
ueIyYOY52IYTkQ7r/r2UTNI58qbbv7SBNRXguM0mmdQd3Wkyb6wNjx7DIkEn
maywS9yZNPlfT50Jv2wgiZRaHthaI8aC+fzFpjEHk8iM/qs1quosrH0/M+W8
PZH4S8YvajrOAiWQo/dJJYFczjVp0e1kQUwnOWbOKJ4Ea9iplnaz8MtnRLVc
PZ5EPjrnYcJhYecynlCsZDxJj7krYT/EgoLpW4dQZhz54MvZHjzJQvLGqkVB
bnGEYnQ1o1WuHQ4TJUYF8bGk7mOBr/+edoxs7dL1ErlLlPlqilVl7ZBKFDto
viGKmFZYqCeQduz7ZPfurHAU8Yzw1LlQ1Q5laX+bouZI8kazwuSP+nb4+oxM
NHhFklMn7C96d7XDWjfVe+RlBKEzo+vUp9tR6iEvUmJ6m+wqnLsaYtABpXk5
Guuo4eT0FRb3L0YHlP9xOCrnSiXshclSCwo7cOLvtU4thlRi/chF/2NxB1bK
DF1kLKOSHW/54YcqO2C3ukz4dX0wkZOWWu/W2IHFdX0xmvrBpDQNgeGjHRgK
2Rb2bWEQWVibvaJeqxPKm7/+Uk65RvKWBdjsT++EVUxg4zUNX5KcmxKoQ+2C
p/X+XxkODmTD7fs6c36fsH5tPWfR/BNwPyHzINmhGxkv85o6DS6Btudyzvut
bCxvzBHbk0XFqd3NUtGGbOReEZ5q/0DFmh1rzh82ZiOztqD7+jgV9HXdG4fN
2UivbtdRMQpBhezO8vl2bIhmJWcmsELQxZJotPRjw69jgMZYGAp5l/vfmfls
yK/ui4+NCseNgJfoXduDKW9D01vjkdDwnOSf0u3B42EZ+16lKHxw1Usf29iD
vPumzrZmUVC0yhf7tbUHS17c609JigJd9XmtknkPEkYKvUvMo8F999jGwbUH
s5pPnsXY3MEu2Xi3tqQe+Bd8cuitiIHYY+/o+kW9cFHuke3+EIeasXe/UuR6
kXzP3bxoOA6RWxTPeyn0wnZQ9MwTsXgs/VBuuVy5F2tzzlV07IiH1oT4Ajft
XmTbyq+xex4PK+MHISJ7e2HxTD50Mv4eEtjl/lvDe1Gwo/eK6eUHWCYlmm8j
zMHcEEtkVVQSVOXnLuuJctAZwCeS9CRoLp+EgjgHK241j0gyk7Bl9VADS5KD
mhXCA8eWJsNhdz3PXpaDQv1xuktqMpICYilOKznQOH37QH9JClS/qse4G3Kw
QdNbJDsoFVoNJp7/+HMg3Bg3YDqTDjUmveevAA7G1mVeL1hEg1K70t/zrnEg
HvS4XodCgyz3u1bYDQ6CdgYmHTCn4cf3jP7wMA7WJmkvs7hPwxsl8cMR8Rzk
em9aKbElA0fc3xnGMjio4/fL/RvyGNFSplJpPA4GVXjhxCobimVldmEjHJT7
zCkons5G6tkNmR6jHPw+vDk0JCgb+bVKxtsEHLwWrjVMeJENVtiEX8tPDrTD
KBYFf+RARSytT1ySC9l5+cyC0Rw8m5stOavBRV2GvvDmtKeoGWWc1nPhQtz2
WMAH8zzsSnx4dMaVCxG5O9c8Tuah3JxqXXmKC8eNIXZqwXlg0Gx3WJ7lws1y
uKK6LA8P7adkXC9ycXRPtrawIh3n3u0oir3OReHZ6bsro+iQTq4Wn0jkYt6a
m5sWBTNw0JKdzmjlgrJM+2vpzQI46Qkzxnf3gSkds+a3RDGMKqODnpb34Ybf
+txH5BUu1LB1rNb143lDzfmImdfw9rmXcjqrH4pud5n8nneoT5IecV/+GXIO
JQreC+uQZnVdSv/mZxSsGpWuKviIPRkOYz4iA1BJrQo33cyEqd9kbor3AMq9
REwphm1Q+Dqju3NsAH9ydX3Wj3XAeeTnP49PDYJByX1VJPrfd24vi7+zBmFs
sfrGRDoHl0J7csv2DwErIoLDDPphpPb+uvubIQxIFNu9/DwAqlnmKu6GYVgL
IvrKG4aRKCuIbHgyjAvt672W7PsKiUOzTNofPMjKd26J5X/DecpUTqIyD9+M
zwg3C/HR+nX8RuxKHlz8sw2PzOcjnfpFh6rOg+PduV2BK/gwZHTecl7Lw3uj
9Hz+Dj68FxbvomznYeqWUtGdYD563/jkpzjwUExxUq2TFcA0yvPmvSM8PNrN
/9a4XIBn9u5OUcd4yLp5v7lTTYArfBfpQGcebCvYzGk9ARRUbM4ePctDqIev
6Dl7Afb6b1BTusJDiF8tczFNgHyTddOLr/JwVCE61/GZAIqyWk1SgTwc6maV
ZBUKMJipGjgbxMO8rOnzljUCBLXKdHXd5CF2YHNIzagAw4+kGMzbPDCt6eob
pwSwOicRXhfJQ2r3F7FUoXEoifzWL43hoSWzLy588TioDTML82N5GO17bSaq
PI4vD37058TzcMwgyyRYYxz7XcdL0+7zUH8xK1J8/TiKdMdiEhJ48OZ3/Bm5
dRz/AxQIrVw=
          "]]}, "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         Line[CompressedData["
1:eJwV1Ps31GkcwPFhmK8QUqJdFKVIyFHRhU+WKCISoZRbmyPFxjYajkuTWixS
IWtTKB00aqaSy+p5yIrKbWKqcZcZ85QsDjEua7cf3uf1H7z1AsMPn5Kl0Wgu
//fdJ5IpQW5uFaSo8iJycwkslMlUlD2oAnmrI+ZW1wg4hKtk1T6rApb/twnB
FQLC6U0egx1VEMHdFbkqigCNfqzNULEavDxe/prhSuCgTt2r56xq2JDTyUqi
ExC7p1V2HauBat2Zy7+clYBWjcEfK3RrYdJkT+4B2xFQFHhWrmdimLK0Uoyp
GAYByl4ttqmHPTRLyxavIchrq2p4vvgStn7hSRXpA1B27mpsyNDfkMK2XXZT
KgTFpcMPcPErsObo53jYCeCpbnP3zLVmMCgfeaZh2AFewXr+NuffwLjEZcnv
QBM45jGPbrFoAcXecvlNfbXADoj2lq5pg4SUwrtWxkVw5ffd4h0R7UCrG13W
8aQQ7Z83bpp17YDS8SPlap9r0CPuhGnpXj5Mr1B30qSa0Av/HYfM9N+Bkw+z
2L2iHZ0/6jZVtLoT/PkymhqtXUg/4JjtXUYXKDKuH5dpFSJWkMgxQtwF22u1
Nz9k9qNojv07s48CyGoNsNhsN4R0xvW1Xta8B5cEXpbfnWEUwhIM7uN+gFCH
zEeqpiPokWaMh1vhR+CTSQvBY4Juc/LjTNlCmG11X4hRGEXmqTmmCxe64VKT
Tezd62MoLED11m3fHhAlrlrHjx5HRU7RJY07e8FUxdnyROEESoipgH7jPii9
t7/USDSJ5O5HZrxZ3g/yPfYoWH0KaSrReR4yA3BdR2Frv/c0Mmqxj0i6OAD1
LcqCoNxvKEPJQamADABfV03Xu2EGNX3lhmwLGgQNlrAuVUGKPA/2FnI7B8Hq
QhFlZjmH/LfJcCfthoA2yLnUc3Ie2eCMxLK/hmDOM96nuWABhTf1mrqafAL+
mUN8g9ZFFBmVnR/y4BP0poqL61YuoTd/qnwJWzMMpza+SBfr0XCBa7zS9uRh
2PKiJHiigoad7vmORcmKYHl3tCTPWwY7XJjm5EeKwG+/o3XcPzJYY3TObO+Y
CBp3SYF2QxYHfplNuv+zGC4PO/tdtaBj+umKyimBGMr7bjs7NNMx80ofp8Zt
BKb83o3cOyOHbfQb48PqR6DERMFzN10esx2LDQbNJcB52tsjyJHHeWoTaS2l
EmjH2erqOxmY8prnF/1IwF/n0JqkNgY+pzdTkqdDwOZ9/tAGPgN3jk4m3FhL
QDtzrKyhk4EL2Z9N2esJfJBLt5ETMrA192NKoDEB99G3QexhBo5UrvxJbzeB
fTVO5YlSBu6vj+Ll+xIw8nGwi1tPYYf0iOTs4wQUVmYr626k8EOfMP/0EwRE
b0VdtYYUZo0HqcQFEijcmxSyaEJhDV2PUL9QAjqGDWmxVhR2vmiur80ioDZj
+4HlQmGevYl0ZSyBsceZBT+4UVhLzahdKY7A69DB0OrDFBYXr4ubTySQ3Jew
KD1K4cROVaEwmYBsI9K/GEhhyR0lLj+VwEC86qjWKQq7nqF+e51GoHbnyWeV
pymsLbu0vTqTQCznX8fZMAqzW+aUeTcI+J52XXErnMKfb337VJJFwEovX2h5
nsJuwZPVBTkENLq/Fr2PovBzs7HM79+avml9lsmk8H/X2HMY
          "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.1, 0.8}, {-2.933333257142858, 1.1390506209709457`}},
        "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {0.10000000000000023`, 0}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.365248, 0.427802, 0.758297], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000023`, 0},
  BaseStyle->16,
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{
    Directive[
     GrayLevel[0.5]], 
    Dashing[{Small, Small}], 
    TagBox[
     ConicHullRegionBox[{{1, 2}, {1, 4}}], "InfiniteLine"], 
    Directive[
     GrayLevel[0]], 
    Dashing[{0, Small, Small, Small}], 
    TagBox[
     ConicHullRegionBox[{{0.25, 2}, {0.25, 4}}], "InfiniteLine"], 
    Directive[
     GrayLevel[0]], 
    AbsoluteDashing[{}], 
    TagBox[
     ConicHullRegionBox[{{0.2699706523994114, 2}, {0.2699706523994114, 4}}], 
     "InfiniteLine"], 
    Directive[
     GrayLevel[0]], 
    ArrowBox[{{0.45, -1.8}, {0.28, -1.4}}], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Equilibrium T;\\n lies above \\!\\(\\*SubscriptBox[\\(\[Lambda]\
\\), \\(G\\)]\\)\"", FontFamily -> "Times", 13.5, 
            GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style[
         "Equilibrium T;\n lies above \!\(\*SubscriptBox[\(\[Lambda]\), \
\(G\)]\)", FontFamily -> "Times", 13.5, 
          GrayLevel[0]]]], TraditionalForm]], {0.45, -2.45}], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"\\!\\(\\*SubscriptBox[\\(\[Lambda]\\), \\(G\\)]\\)\"", 
            FontFamily -> "Times", 16, 
            GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style[
         "\!\(\*SubscriptBox[\(\[Lambda]\), \(G\)]\)", FontFamily -> "Times", 
          16, 
          GrayLevel[0]]]], TraditionalForm]], {0.21, -2.2}]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {
     FormBox[
      TagBox["\"T\"", HoldForm], TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{{{-3, 
       FormBox[
        RowBox[{"-", "3"}], TraditionalForm]}, {-2, 
       FormBox[
        RowBox[{"-", "2"}], TraditionalForm]}, {-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}, {2, 
       FormBox["2", TraditionalForm]}}, {}}, {{{0, 
       FormBox["0", TraditionalForm]}, {0.2, 
       FormBox["0.2`", TraditionalForm]}, {0.4, 
       FormBox["0.4`", TraditionalForm]}, {0.6, 
       FormBox["0.6`", TraditionalForm]}, {0.8, 
       FormBox["0.8`", TraditionalForm]}}, {}}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->250,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotLabel->FormBox[
    StyleBox[
    "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Beta]\\), \\(^\\)], \
SubscriptBox[\\(\[Lambda]\\), \\(G\\)]]\\)<0\"", 18, StripOnInput -> False], 
    TraditionalForm],
  PlotRange->{{0.1, 0.8}, {-2.933333257142858, 1.1390506209709457`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.905263579713358*^9, 3.905263588847576*^9}, {
   3.90526365676098*^9, 3.905263704613016*^9}, 3.905263771370756*^9, {
   3.905264032867084*^9, 3.905264093798142*^9}, {3.905264141453659*^9, 
   3.905264147317523*^9}, {3.905264352579032*^9, 3.905264406790049*^9}, 
   3.905264625629367*^9, 3.905273492051654*^9, 3.9052818146861153`*^9, 
   3.905360787418054*^9, 3.9645425350970287`*^9, {3.964543053307466*^9, 
   3.964543070585662*^9}, {3.964543103332246*^9, 3.9645431100221167`*^9}, {
   3.964608029078558*^9, 3.964608049407271*^9}, {3.964608080215909*^9, 
   3.964608096800477*^9}, {3.964608134696047*^9, 3.964608171241055*^9}, {
   3.9646082170139933`*^9, 3.964608234787376*^9}, {3.9646082909925117`*^9, 
   3.9646083477716017`*^9}, {3.964608459073309*^9, 3.964608571366815*^9}, 
   3.964608727612619*^9, {3.964609312179981*^9, 3.9646093409318542`*^9}, {
   3.964609798087414*^9, 3.964609817106737*^9}, 3.9654900918703403`*^9, 
   3.972600928851308*^9, 3.972652821200848*^9, 3.972653149868663*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"4ad244d1-de33-47b2-9466-484e72bc3bef"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 3", "Section",
 CellChangeTimes->{{3.972600951074732*^9, 
  3.972600951704462*^9}},ExpressionUUID->"1ebcc3bc-8014-40e9-bf43-\
8640a0fc76a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"\[Sigma]\[Beta]", "=", "1"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "-", 
        RowBox[{"NCDF", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"eq", "[", 
            RowBox[{
            "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",", 
             "\[Sigma]M", ",", "xp", ",", "zB", ",", "\[Kappa]", ",", 
             "\[Lambda]G"}], "]"}], "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"],
          "]"}]}], ",", 
       RowBox[{"NCDF", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"eq", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",", 
            "\[Sigma]M", ",", "xp", ",", "zB", ",", "\[Kappa]", ",", 
            "\[Lambda]G"}], "]"}], "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
        "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"xp", ",", "1", ",", "5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.577523", ",", " ", "0.389181", ",", " ", "0.0897993"}], 
           "]"}], ",", "Solid"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"RGBColor", "[", 
          RowBox[{"0", ",", " ", "0.582223", ",", " ", "0"}], "]"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", "DotDashed"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<Green Exposure \!\(\*SubscriptBox[\(z\), \(G\)]\)\>\"", 
        ",", "\"\<% Market Held \\n by Investors\>\""}], "}"}]}], ",", 
     RowBox[{"Epilog", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Gray", ",", 
          RowBox[{"Thickness", "[", ".005", "]"}]}], "]"}], ",", "DotDashed", 
        ",", 
        RowBox[{"InfiniteLine", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"effvalzG", "[", 
              RowBox[{
              "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "zB", ",", 
               "\[Kappa]", ",", "\[Lambda]G"}], "]"}], ",", ".1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"effvalzG", "[", 
              RowBox[{
              "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "zB", ",", 
               "\[Kappa]", ",", "\[Lambda]G"}], "]"}], ",", ".2"}], "}"}]}], 
          "}"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Directive", "[", 
           RowBox[{
            RowBox[{"RGBColor", "[", 
             RowBox[{
             "0.577523", ",", " ", "0.389181", ",", " ", "0.0897993"}], "]"}],
             ",", "Dashed", ",", 
            RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "\[Kappa]"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "\[Kappa]"}], "}"}]}], "}"}], "]"}]}], "}"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Directive", "[", 
           RowBox[{
            RowBox[{"RGBColor", "[", 
             RowBox[{"0", ",", " ", "0.582223", ",", " ", "0"}], "]"}], ",", 
            RowBox[{"Dashing", "[", 
             RowBox[{
              RowBox[{"{", "Small", "}"}], ",", ".02"}], "]"}], ",", 
            RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "\[Kappa]"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "\[Kappa]"}], "}"}]}], "}"}], "]"}]}], 
         "}"}]}], "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.900868573203402*^9, 3.900868606263842*^9}, {
   3.900868659939432*^9, 3.900868685593351*^9}, 3.900868791897545*^9, 
   3.90086920905499*^9, {3.900869253191288*^9, 3.900869257215719*^9}, {
   3.90086958757019*^9, 3.9008695929467983`*^9}, {3.900869669529929*^9, 
   3.90086967972986*^9}, {3.900869867412691*^9, 3.900869888485261*^9}, 
   3.9014592208234863`*^9, {3.905360183668248*^9, 3.905360192370193*^9}, {
   3.9053602283852453`*^9, 3.905360258680244*^9}, {3.905360303729947*^9, 
   3.905360366403323*^9}, 3.972601022701544*^9},
 CellLabel->"In[27]:=",ExpressionUUID->"e24826c3-98ff-42bc-b61c-61ef964fc8ab"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.577523, 0.389181, 0.0897993], AbsoluteThickness[1.6], 
         Opacity[1.], CapForm["Butt"], 
         LineBox[{{1.000000081632653, 0.5}, {1.0392573632193876`, 0.5}, {
          1.0785146448061218`, 0.5}, {1.1636334283418348`, 0.5}, {
          1.2431115342806087`, 0.5}, {1.3210305952755046`, 0.5}, {
          1.405553876632645, 0.5}, {1.484436480392846, 0.5}, {
          1.5699233045152916`, 0.5}, {1.6538510836938594`, 0.5}, {
          1.7321381852754878`, 0.5}, {1.753361015761456, 0.5}, {
          1.7745838462474244`, 0.5}, {1.7851952614904085`, 0.5}, {
          1.7958066767333927`, 0.5}, {1.7966090505987837`, 0.5}}], 
         LineBox[CompressedData["
1:eJwVyns0lAkcxnGXxKDB+5JYKla6rcvmkkv8fjlWSdqNmUNTTShboR05bbVn
O0U1XdhKknXcd5OUTrK5tFa0W1aUjcWMUL3EmJn3FQmJd7Lv/vGc53zO+drF
SMJidbS0tEK4/f8qBUnsaGbhbKTdlv06FHRmu3ltb2eh/dcid+v5FBw97Gne
ImNh+lqxZ54BBTYC7zGvPhYepvX4LzaiYI8JlC4cZiE+NzXa3pQCg5H1p6UM
CxODvT8WExTcbgmMmnjHQlTkgjxHCwompJsW/cuysGZX/cgqawqkrPDcBUID
MgeLTjcHCjK+/eVjoaUG2j7VH0hzpKCgjYn7zUYDpdbTRm9WUFBdfCpU7qiB
kuwOYYYTBcrNFYSdrwYOVIfavvOkYHO+cX7lbg3c9rNKKA+mgPB/VNFbqQH1
pXkXnCUUFJ5w7V0Z8QnoCPOuNbUUxAdY7919dQ4Etj7DfqH9YPZkkhUc0cL0
Wfm+fUw/fJiVjMYt0sbY/CtVK5MHIHxyZ6x+kza+PaNaPb34DZy72HEkKUkH
Wfl+P8X9N9BUKXL7htDFjTW1562CBuFYkTCpskEXkx1Cln/sHQRfqxhRWvQ8
lN5ddeizPUOQGDHQqDTVw1d7VWUN40Nw3EPdav5AD0XilGPWPyggq0j3xL2d
8zFRzKutG1OAQ3v6vW4jfXxY+oJ/PX4Y6i66XE68o4+10pGuHPkwODFCI3mo
ASa4x/I6fZRgbjJm8HjGAPXeZcrGC5Sg15Bb/nkeDz3HIyXbJ5WQ4P7HC16I
Id6VZbxPDVHB7eCYovopQ9wUURNMZ6tgirY2VWQZ4Ver7YY0PSqoDt+gmxlo
jNcbV3gm2agheaO0sFJhjHmz2q2rBWqwf7mp+5p0AfIbqwTOZ9Tgu/Z0ptUa
PgYIz9rV1ahh5+LnH7U7+Hjj8nHvyX41TLVcGEhMMcGgnOTCZiMaNuu4+Kwk
TLExTnP3pAsNhqOirdoxpnilvbO25msaTtXjrbz7pujdETXTJqEhRVAecZBn
hqrXpw5HpdHg0yoP4kWbYfL08qtDJTS8tgg8bVBjhmtb/XuaGmjgLfNeuF6f
QC9JUltQFw1vFypV68QE2j6lw4bUNEQ+X0IklRO4LpttKNbQUB6Re44/R2Dw
+Z/CWvkM/PlXG34nJDGxuWj8i6UMRE5cDNUvIbF/RuAe7sLA3/8EuEpukKi+
8ehmJmf3m1OEvJREZ/jZWMbZRCzuLikjcbokNSfSleubnHYHVZB4fETSveNL
Bjxynx2V1pH4GK4ORLsxQAQYFut2kEhuy4kRr2Ug2ab+THwnieFkWUY+57dT
B/d3dJEoe6lX0ce5ueyF87VuEp/GVN0XeXG9xc3fA16ReKfswYTQm4FR5Ybn
KSoSU7ceWhbsy8COR7MVKjWJl7J2+Z3l3JJfnrmVIXHbPp3ARs4lYZYiu1ES
GwvO265fx4C4TjH4cILE91YiHS8/Bp5l5TStmCKxu+BB+vecfQ5uuZX+gcQ+
Dz7/HmcLx2pJ1AyJ9ksvdzn5M3BSKy7sySyJu+60LYnnPNZj6+GqIbH2seW2
Us7iqnbL7E8kPplOSBni/OySdGZujsTJPlm2PTDwH5MTRsQ=
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0, 0.582223, 0], AbsoluteThickness[1.6], Opacity[1.], 
         CapForm["Butt"], 
         LineBox[{{1.000000081632653, 0.5}, {1.0392573632193876`, 0.5}, {
          1.0785146448061218`, 0.5}, {1.1636334283418348`, 0.5}, {
          1.2431115342806087`, 0.5}, {1.3210305952755046`, 0.5}, {
          1.405553876632645, 0.5}, {1.484436480392846, 0.5}, {
          1.5699233045152916`, 0.5}, {1.6538510836938594`, 0.5}, {
          1.7321381852754878`, 0.5}, {1.753361015761456, 0.5}, {
          1.7745838462474244`, 0.5}, {1.7851952614904085`, 0.5}, {
          1.7958066767333927`, 0.5}, {1.7966090505987837`, 0.5}}], 
         LineBox[CompressedData["
1:eJwVjGs0lAkYgAdhZsKM73OJQ50plZRoC7ls72uUbqrBWFax5VKn0S7pbLVt
F2I6bRYlWSdKd5psszLIxpdLGgahIUOXr3VKJsS207Qyw9ofz3n+POfhxSSG
xBsyGIzNM/xv9SBJ7GjRwcettbGukzR0569cvb1LB9F/Unmt/9Bw+KCnleKZ
Drj3K3PkH2hwEHqPr36hgxNDm042qmmI40CJzTsduLS893tA08Ac9U8Xj+jA
znMDs6qfhlLF2p2av3WA297K7/XQoBFvmvNUp4NC/zQnSSsNYl3Y6UxCD8LK
nvD8Khpydl+dKLLVw3eGJ53U92i43DkiuuegB6mCM+R9l4bKG2lbehfpoeJJ
hPD5DRqGgsoInq8eFp2Pa3LMoSHoktklWaweStLbF1/dRwOxprHsuUwPrq+1
b6/xaCg64f58SfgUuAh6wy5mvIIEvv2e2AvTEN6UsSI9/iVYNn/SCQ8x8C+m
YLnb4hfweTJxTDTHAD2bVLml0/0Q+ikq3lRugAs+LivhNPTB6SzloeRkQzQV
LBOvzFKBXBa5UkAYYdK5MyNtB3rh6JWwZNlDI2RU7S0z3/AMfO1iIjN2zULt
ZYlti1cPJIUPNA1xjXGdu2tJin03HPd4325Va4xBAXqTVnMl5F0xOlEeZYLz
AkYzTs19Ck5dZ8tVs00x5W7QQIVzF9RkuZ1LumuKv2qchApBJ7iOhM3u3cJE
wfKEfqlVB1hxxpmPvjBx1Lf05qr0djB+WCBdUMhCZ69Cfo5LG+xb9aCPtZmN
/JuyFd1dCijdGHOF0rJRdW1+X0hhC2iH7bmDebNxNOTnBGZuM1SGrjfKXWuG
+9Q7FntlySFlg7hINmiG2Zb/tgqkj2H+y02q62JzbB52/j3wXRP4eqXn2n1l
gVrJwE8cXhNEze2YMFBaYGy1sf3Sw49Aq8gcSErloDpPn9rX2QhBhm4+Swgu
DgvZfp/8G4E9FhlsEMPF8upSK159A6RRKCm8z0WH8qM2NdgAqUJp+H6WJW5P
GV94/Gk9+LT3BrJ2WeKU4847e+PqgbZem86sskSn1lm/vWbUA2uht42/KYFz
AzypN5I6+GAzpPaLJjBTKZCJhHUQ0TGPSJYSyC0yZ3zPqgNpeMFpi2kCqysK
Ei788hDqGzrxhzASj8kmRPlTFERosraY3iJxwjkiareYgsdP+O6JxST+UTdQ
FplGwarbWqK3hMTzJoEF21Ip4ERHq27dIXFNs2Sp77GZXu4aG1hGolluip/d
jxR4FLQdFteQ+Mbgm+HxOAoIPvuGkZJEkZfrsNk6ClIcqFMJ3STGxxeLyAAK
Pmj371X2kBhs2XXI3p+Cljt9y6+rSCxWC31cvp7prW9X81+RmH2NiBR4UDA2
tL4jVU1i+YGo7sqFFOxonCxTvyfxzGYj68cLKFBckuYGj5DoXTtC9/AouBVi
G8kbI/EZq5z87EhBdM3gmzoNiXvc3UbBhoK2vItyZy2JfBZ5JNSKAp/9WyVn
P5PoEJyVvYegwHpRZeLOLyRqpg6GnrOg4CRDFNI8SSI784hBsRkF4/2OHu56
Et37/b1q2TP/ii7b/CkSH3nna5TMmX+2+Mv0NInfztnoPWxCwX9+zzNf
          "]]},
        Annotation[#, "Charting`Private`Tag#2"]& ], {}}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0.577523, 0.389181, 0.0897993]], 
             
             Line[{{1.000000081632653, 0.5}, {1.0392573632193876`, 0.5}, {
              1.0785146448061218`, 0.5}, {1.1636334283418348`, 0.5}, {
              1.2431115342806087`, 0.5}, {1.3210305952755046`, 0.5}, {
              1.405553876632645, 0.5}, {1.484436480392846, 0.5}, {
              1.5699233045152916`, 0.5}, {1.6538510836938594`, 0.5}, {
              1.7321381852754878`, 0.5}, {1.753361015761456, 0.5}, {
              1.7745838462474244`, 0.5}, {1.7851952614904085`, 0.5}, {
              1.7958066767333927`, 0.5}, {1.7966090505987837`, 0.5}}], 
             Line[CompressedData["
1:eJwVyns0lAkcxnGXxKDB+5JYKla6rcvmkkv8fjlWSdqNmUNTTShboR05bbVn
O0U1XdhKknXcd5OUTrK5tFa0W1aUjcWMUL3EmJn3FQmJd7Lv/vGc53zO+drF
SMJidbS0tEK4/f8qBUnsaGbhbKTdlv06FHRmu3ltb2eh/dcid+v5FBw97Gne
ImNh+lqxZ54BBTYC7zGvPhYepvX4LzaiYI8JlC4cZiE+NzXa3pQCg5H1p6UM
CxODvT8WExTcbgmMmnjHQlTkgjxHCwompJsW/cuysGZX/cgqawqkrPDcBUID
MgeLTjcHCjK+/eVjoaUG2j7VH0hzpKCgjYn7zUYDpdbTRm9WUFBdfCpU7qiB
kuwOYYYTBcrNFYSdrwYOVIfavvOkYHO+cX7lbg3c9rNKKA+mgPB/VNFbqQH1
pXkXnCUUFJ5w7V0Z8QnoCPOuNbUUxAdY7919dQ4Etj7DfqH9YPZkkhUc0cL0
Wfm+fUw/fJiVjMYt0sbY/CtVK5MHIHxyZ6x+kza+PaNaPb34DZy72HEkKUkH
Wfl+P8X9N9BUKXL7htDFjTW1562CBuFYkTCpskEXkx1Cln/sHQRfqxhRWvQ8
lN5ddeizPUOQGDHQqDTVw1d7VWUN40Nw3EPdav5AD0XilGPWPyggq0j3xL2d
8zFRzKutG1OAQ3v6vW4jfXxY+oJ/PX4Y6i66XE68o4+10pGuHPkwODFCI3mo
ASa4x/I6fZRgbjJm8HjGAPXeZcrGC5Sg15Bb/nkeDz3HIyXbJ5WQ4P7HC16I
Id6VZbxPDVHB7eCYovopQ9wUURNMZ6tgirY2VWQZ4Ver7YY0PSqoDt+gmxlo
jNcbV3gm2agheaO0sFJhjHmz2q2rBWqwf7mp+5p0AfIbqwTOZ9Tgu/Z0ptUa
PgYIz9rV1ahh5+LnH7U7+Hjj8nHvyX41TLVcGEhMMcGgnOTCZiMaNuu4+Kwk
TLExTnP3pAsNhqOirdoxpnilvbO25msaTtXjrbz7pujdETXTJqEhRVAecZBn
hqrXpw5HpdHg0yoP4kWbYfL08qtDJTS8tgg8bVBjhmtb/XuaGmjgLfNeuF6f
QC9JUltQFw1vFypV68QE2j6lw4bUNEQ+X0IklRO4LpttKNbQUB6Re44/R2Dw
+Z/CWvkM/PlXG34nJDGxuWj8i6UMRE5cDNUvIbF/RuAe7sLA3/8EuEpukKi+
8ehmJmf3m1OEvJREZ/jZWMbZRCzuLikjcbokNSfSleubnHYHVZB4fETSveNL
Bjxynx2V1pH4GK4ORLsxQAQYFut2kEhuy4kRr2Ug2ab+THwnieFkWUY+57dT
B/d3dJEoe6lX0ce5ueyF87VuEp/GVN0XeXG9xc3fA16ReKfswYTQm4FR5Ybn
KSoSU7ceWhbsy8COR7MVKjWJl7J2+Z3l3JJfnrmVIXHbPp3ARs4lYZYiu1ES
GwvO265fx4C4TjH4cILE91YiHS8/Bp5l5TStmCKxu+BB+vecfQ5uuZX+gcQ+
Dz7/HmcLx2pJ1AyJ9ksvdzn5M3BSKy7sySyJu+60LYnnPNZj6+GqIbH2seW2
Us7iqnbL7E8kPplOSBni/OySdGZujsTJPlm2PTDwH5MTRsQ=
              "]]}, "Charting`Private`Tag#1"], 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0]], 
             
             Line[{{1.000000081632653, 0.5}, {1.0392573632193876`, 0.5}, {
              1.0785146448061218`, 0.5}, {1.1636334283418348`, 0.5}, {
              1.2431115342806087`, 0.5}, {1.3210305952755046`, 0.5}, {
              1.405553876632645, 0.5}, {1.484436480392846, 0.5}, {
              1.5699233045152916`, 0.5}, {1.6538510836938594`, 0.5}, {
              1.7321381852754878`, 0.5}, {1.753361015761456, 0.5}, {
              1.7745838462474244`, 0.5}, {1.7851952614904085`, 0.5}, {
              1.7958066767333927`, 0.5}, {1.7966090505987837`, 0.5}}], 
             Line[CompressedData["
1:eJwVjGs0lAkYgAdhZsKM73OJQ50plZRoC7ls72uUbqrBWFax5VKn0S7pbLVt
F2I6bRYlWSdKd5psszLIxpdLGgahIUOXr3VKJsS207Qyw9ofz3n+POfhxSSG
xBsyGIzNM/xv9SBJ7GjRwcettbGukzR0569cvb1LB9F/Unmt/9Bw+KCnleKZ
Drj3K3PkH2hwEHqPr36hgxNDm042qmmI40CJzTsduLS893tA08Ac9U8Xj+jA
znMDs6qfhlLF2p2av3WA297K7/XQoBFvmvNUp4NC/zQnSSsNYl3Y6UxCD8LK
nvD8Khpydl+dKLLVw3eGJ53U92i43DkiuuegB6mCM+R9l4bKG2lbehfpoeJJ
hPD5DRqGgsoInq8eFp2Pa3LMoSHoktklWaweStLbF1/dRwOxprHsuUwPrq+1
b6/xaCg64f58SfgUuAh6wy5mvIIEvv2e2AvTEN6UsSI9/iVYNn/SCQ8x8C+m
YLnb4hfweTJxTDTHAD2bVLml0/0Q+ikq3lRugAs+LivhNPTB6SzloeRkQzQV
LBOvzFKBXBa5UkAYYdK5MyNtB3rh6JWwZNlDI2RU7S0z3/AMfO1iIjN2zULt
ZYlti1cPJIUPNA1xjXGdu2tJin03HPd4325Va4xBAXqTVnMl5F0xOlEeZYLz
AkYzTs19Ck5dZ8tVs00x5W7QQIVzF9RkuZ1LumuKv2qchApBJ7iOhM3u3cJE
wfKEfqlVB1hxxpmPvjBx1Lf05qr0djB+WCBdUMhCZ69Cfo5LG+xb9aCPtZmN
/JuyFd1dCijdGHOF0rJRdW1+X0hhC2iH7bmDebNxNOTnBGZuM1SGrjfKXWuG
+9Q7FntlySFlg7hINmiG2Zb/tgqkj2H+y02q62JzbB52/j3wXRP4eqXn2n1l
gVrJwE8cXhNEze2YMFBaYGy1sf3Sw49Aq8gcSErloDpPn9rX2QhBhm4+Swgu
DgvZfp/8G4E9FhlsEMPF8upSK159A6RRKCm8z0WH8qM2NdgAqUJp+H6WJW5P
GV94/Gk9+LT3BrJ2WeKU4847e+PqgbZem86sskSn1lm/vWbUA2uht42/KYFz
AzypN5I6+GAzpPaLJjBTKZCJhHUQ0TGPSJYSyC0yZ3zPqgNpeMFpi2kCqysK
Ei788hDqGzrxhzASj8kmRPlTFERosraY3iJxwjkiareYgsdP+O6JxST+UTdQ
FplGwarbWqK3hMTzJoEF21Ip4ERHq27dIXFNs2Sp77GZXu4aG1hGolluip/d
jxR4FLQdFteQ+Mbgm+HxOAoIPvuGkZJEkZfrsNk6ClIcqFMJ3STGxxeLyAAK
Pmj371X2kBhs2XXI3p+Cljt9y6+rSCxWC31cvp7prW9X81+RmH2NiBR4UDA2
tL4jVU1i+YGo7sqFFOxonCxTvyfxzGYj68cLKFBckuYGj5DoXTtC9/AouBVi
G8kbI/EZq5z87EhBdM3gmzoNiXvc3UbBhoK2vItyZy2JfBZ5JNSKAp/9WyVn
P5PoEJyVvYegwHpRZeLOLyRqpg6GnrOg4CRDFNI8SSI784hBsRkF4/2OHu56
Et37/b1q2TP/ii7b/CkSH3nna5TMmX+2+Mv0NInfztnoPWxCwX9+zzNf
              "]]}, "Charting`Private`Tag#2"], {}}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{1, 5}, {0., 0.8827069268362765}}, 
           "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {1.0000000000000022`, 0}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0]], 
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0.577523, 0.389181, 0.0897993]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{1, 5}, {0., 0.8827069268362765}}, 
          "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {1.0000000000000022`, 0}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0.582223, 0]], 
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0.577523, 0.389181, 0.0897993]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0.577523, 0.389181, 0.0897993]], 
         Line[{{1.000000081632653, 0.5}, {1.0392573632193876`, 0.5}, {
          1.0785146448061218`, 0.5}, {1.1636334283418348`, 0.5}, {
          1.2431115342806087`, 0.5}, {1.3210305952755046`, 0.5}, {
          1.405553876632645, 0.5}, {1.484436480392846, 0.5}, {
          1.5699233045152916`, 0.5}, {1.6538510836938594`, 0.5}, {
          1.7321381852754878`, 0.5}, {1.753361015761456, 0.5}, {
          1.7745838462474244`, 0.5}, {1.7851952614904085`, 0.5}, {
          1.7958066767333927`, 0.5}, {1.7966090505987837`, 0.5}}], 
         Line[CompressedData["
1:eJwVyns0lAkcxnGXxKDB+5JYKla6rcvmkkv8fjlWSdqNmUNTTShboR05bbVn
O0U1XdhKknXcd5OUTrK5tFa0W1aUjcWMUL3EmJn3FQmJd7Lv/vGc53zO+drF
SMJidbS0tEK4/f8qBUnsaGbhbKTdlv06FHRmu3ltb2eh/dcid+v5FBw97Gne
ImNh+lqxZ54BBTYC7zGvPhYepvX4LzaiYI8JlC4cZiE+NzXa3pQCg5H1p6UM
CxODvT8WExTcbgmMmnjHQlTkgjxHCwompJsW/cuysGZX/cgqawqkrPDcBUID
MgeLTjcHCjK+/eVjoaUG2j7VH0hzpKCgjYn7zUYDpdbTRm9WUFBdfCpU7qiB
kuwOYYYTBcrNFYSdrwYOVIfavvOkYHO+cX7lbg3c9rNKKA+mgPB/VNFbqQH1
pXkXnCUUFJ5w7V0Z8QnoCPOuNbUUxAdY7919dQ4Etj7DfqH9YPZkkhUc0cL0
Wfm+fUw/fJiVjMYt0sbY/CtVK5MHIHxyZ6x+kza+PaNaPb34DZy72HEkKUkH
Wfl+P8X9N9BUKXL7htDFjTW1562CBuFYkTCpskEXkx1Cln/sHQRfqxhRWvQ8
lN5ddeizPUOQGDHQqDTVw1d7VWUN40Nw3EPdav5AD0XilGPWPyggq0j3xL2d
8zFRzKutG1OAQ3v6vW4jfXxY+oJ/PX4Y6i66XE68o4+10pGuHPkwODFCI3mo
ASa4x/I6fZRgbjJm8HjGAPXeZcrGC5Sg15Bb/nkeDz3HIyXbJ5WQ4P7HC16I
Id6VZbxPDVHB7eCYovopQ9wUURNMZ6tgirY2VWQZ4Ver7YY0PSqoDt+gmxlo
jNcbV3gm2agheaO0sFJhjHmz2q2rBWqwf7mp+5p0AfIbqwTOZ9Tgu/Z0ptUa
PgYIz9rV1ahh5+LnH7U7+Hjj8nHvyX41TLVcGEhMMcGgnOTCZiMaNuu4+Kwk
TLExTnP3pAsNhqOirdoxpnilvbO25msaTtXjrbz7pujdETXTJqEhRVAecZBn
hqrXpw5HpdHg0yoP4kWbYfL08qtDJTS8tgg8bVBjhmtb/XuaGmjgLfNeuF6f
QC9JUltQFw1vFypV68QE2j6lw4bUNEQ+X0IklRO4LpttKNbQUB6Re44/R2Dw
+Z/CWvkM/PlXG34nJDGxuWj8i6UMRE5cDNUvIbF/RuAe7sLA3/8EuEpukKi+
8ehmJmf3m1OEvJREZ/jZWMbZRCzuLikjcbokNSfSleubnHYHVZB4fETSveNL
Bjxynx2V1pH4GK4ORLsxQAQYFut2kEhuy4kRr2Ug2ab+THwnieFkWUY+57dT
B/d3dJEoe6lX0ce5ueyF87VuEp/GVN0XeXG9xc3fA16ReKfswYTQm4FR5Ybn
KSoSU7ceWhbsy8COR7MVKjWJl7J2+Z3l3JJfnrmVIXHbPp3ARs4lYZYiu1ES
GwvO265fx4C4TjH4cILE91YiHS8/Bp5l5TStmCKxu+BB+vecfQ5uuZX+gcQ+
Dz7/HmcLx2pJ1AyJ9ksvdzn5M3BSKy7sySyJu+60LYnnPNZj6+GqIbH2seW2
Us7iqnbL7E8kPplOSBni/OySdGZujsTJPlm2PTDwH5MTRsQ=
          "]]}, "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0]], 
         Line[{{1.000000081632653, 0.5}, {1.0392573632193876`, 0.5}, {
          1.0785146448061218`, 0.5}, {1.1636334283418348`, 0.5}, {
          1.2431115342806087`, 0.5}, {1.3210305952755046`, 0.5}, {
          1.405553876632645, 0.5}, {1.484436480392846, 0.5}, {
          1.5699233045152916`, 0.5}, {1.6538510836938594`, 0.5}, {
          1.7321381852754878`, 0.5}, {1.753361015761456, 0.5}, {
          1.7745838462474244`, 0.5}, {1.7851952614904085`, 0.5}, {
          1.7958066767333927`, 0.5}, {1.7966090505987837`, 0.5}}], 
         Line[CompressedData["
1:eJwVjGs0lAkYgAdhZsKM73OJQ50plZRoC7ls72uUbqrBWFax5VKn0S7pbLVt
F2I6bRYlWSdKd5psszLIxpdLGgahIUOXr3VKJsS207Qyw9ofz3n+POfhxSSG
xBsyGIzNM/xv9SBJ7GjRwcettbGukzR0569cvb1LB9F/Unmt/9Bw+KCnleKZ
Drj3K3PkH2hwEHqPr36hgxNDm042qmmI40CJzTsduLS893tA08Ac9U8Xj+jA
znMDs6qfhlLF2p2av3WA297K7/XQoBFvmvNUp4NC/zQnSSsNYl3Y6UxCD8LK
nvD8Khpydl+dKLLVw3eGJ53U92i43DkiuuegB6mCM+R9l4bKG2lbehfpoeJJ
hPD5DRqGgsoInq8eFp2Pa3LMoSHoktklWaweStLbF1/dRwOxprHsuUwPrq+1
b6/xaCg64f58SfgUuAh6wy5mvIIEvv2e2AvTEN6UsSI9/iVYNn/SCQ8x8C+m
YLnb4hfweTJxTDTHAD2bVLml0/0Q+ikq3lRugAs+LivhNPTB6SzloeRkQzQV
LBOvzFKBXBa5UkAYYdK5MyNtB3rh6JWwZNlDI2RU7S0z3/AMfO1iIjN2zULt
ZYlti1cPJIUPNA1xjXGdu2tJin03HPd4325Va4xBAXqTVnMl5F0xOlEeZYLz
AkYzTs19Ck5dZ8tVs00x5W7QQIVzF9RkuZ1LumuKv2qchApBJ7iOhM3u3cJE
wfKEfqlVB1hxxpmPvjBx1Lf05qr0djB+WCBdUMhCZ69Cfo5LG+xb9aCPtZmN
/JuyFd1dCijdGHOF0rJRdW1+X0hhC2iH7bmDebNxNOTnBGZuM1SGrjfKXWuG
+9Q7FntlySFlg7hINmiG2Zb/tgqkj2H+y02q62JzbB52/j3wXRP4eqXn2n1l
gVrJwE8cXhNEze2YMFBaYGy1sf3Sw49Aq8gcSErloDpPn9rX2QhBhm4+Swgu
DgvZfp/8G4E9FhlsEMPF8upSK159A6RRKCm8z0WH8qM2NdgAqUJp+H6WJW5P
GV94/Gk9+LT3BrJ2WeKU4847e+PqgbZem86sskSn1lm/vWbUA2uht42/KYFz
AzypN5I6+GAzpPaLJjBTKZCJhHUQ0TGPSJYSyC0yZ3zPqgNpeMFpi2kCqysK
Ei788hDqGzrxhzASj8kmRPlTFERosraY3iJxwjkiareYgsdP+O6JxST+UTdQ
FplGwarbWqK3hMTzJoEF21Ip4ERHq27dIXFNs2Sp77GZXu4aG1hGolluip/d
jxR4FLQdFteQ+Mbgm+HxOAoIPvuGkZJEkZfrsNk6ClIcqFMJ3STGxxeLyAAK
Pmj371X2kBhs2XXI3p+Cljt9y6+rSCxWC31cvp7prW9X81+RmH2NiBR4UDA2
tL4jVU1i+YGo7sqFFOxonCxTvyfxzGYj68cLKFBckuYGj5DoXTtC9/AouBVi
G8kbI/EZq5z87EhBdM3gmzoNiXvc3UbBhoK2vItyZy2JfBZ5JNSKAp/9WyVn
P5PoEJyVvYegwHpRZeLOLyRqpg6GnrOg4CRDFNI8SSI784hBsRkF4/2OHu56
Et37/b1q2TP/ii7b/CkSH3nna5TMmX+2+Mv0NInfztnoPWxCwX9+zzNf
          "]]}, "Charting`Private`Tag#2"], {}}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{1, 5}, {0., 0.8827069268362765}}, 
       "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {1.0000000000000022`, 0}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0]], 
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0.577523, 0.389181, 0.0897993]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{1.0000000000000022`, 0},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{
    Directive[
     GrayLevel[0.5], 
     Thickness[0.005]], 
    Dashing[{0, Small, Small, Small}], 
    TagBox[
     ConicHullRegionBox[{{1.7978845608028653`, 0.1}, {1.7978845608028653`, 
      0.2}}], "InfiniteLine"], {
     Directive[
      RGBColor[0.577523, 0.389181, 0.0897993], 
      Dashing[{Small, Small}], 
      Thickness[0.01]], 
     LineBox[{{1, 0.5}, {5, 0.5}}]}, {
     Directive[
      RGBColor[0, 0.582223, 0], 
      Dashing[{Small}, 0.02], 
      Thickness[0.01]], 
     LineBox[{{1, 0.5}, {5, 0.5}}]}},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox["\"% Market Held \\n by Investors\"", HoldForm], 
      TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"Green Exposure \\!\\(\\*SubscriptBox[\\(z\\), \\(G\\)]\\)\"", 
       HoldForm], TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->250,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{1, 5}, {0., 0.8827069268362765}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.900869257962239*^9, 3.90086959527631*^9, {3.900869675145846*^9, 
   3.90086968014053*^9}, {3.9008698685638027`*^9, 3.900869888931785*^9}, {
   3.900880938160122*^9, 3.9008809591552677`*^9}, {3.901459199667853*^9, 
   3.901459221293721*^9}, 3.901549988408243*^9, 3.905359544290001*^9, {
   3.905360184485357*^9, 3.905360193043416*^9}, {3.905360235097949*^9, 
   3.905360259487444*^9}, {3.905360333061611*^9, 3.905360367263079*^9}, 
   3.972600980143065*^9, 3.972601023204534*^9, 3.97265282394273*^9, 
   3.972653152135622*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"b0ddc679-c21b-4dc3-b8c1-bee71a020092"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"\[Sigma]\[Beta]", "=", "1"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqef", "=", 
     RowBox[{"effvalzG", "[", 
      RowBox[{
      "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "zB", ",", "\[Kappa]", ",",
        "\[Lambda]G"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"eqlG", "[", "zG_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{"zG", ">=", "eqef"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"zG", "+", 
         RowBox[{
          FractionBox["\[Kappa]", "\[Lambda]G"], "*", 
          RowBox[{"gL", "[", 
           RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            RowBox[{"eq", "[", 
             RowBox[{
             "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",", 
              "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
              "\[Lambda]G"}], "]"}]}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{"zG", "<", "eqef"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Lambda]G", "*", "zG"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Lambda]G"}], ")"}], "*", "zB"}], "+", 
         RowBox[{"\[Kappa]", "*", "\[Mu]\[Beta]"}]}], ")"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"eqlB", "[", "zG_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{"zG", ">=", "eqef"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"zB", "+", 
         RowBox[{
          FractionBox["\[Kappa]", 
           RowBox[{"1", "-", "\[Lambda]G"}]], "*", 
          RowBox[{"gU", "[", 
           RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            RowBox[{"eq", "[", 
             RowBox[{
             "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",", 
              "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
              "\[Lambda]G"}], "]"}]}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{"zG", "<", "eqef"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Lambda]G", "*", "zG"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Lambda]G"}], ")"}], "*", "zB"}], "+", 
         RowBox[{"\[Kappa]", "*", "\[Mu]\[Beta]"}]}], ")"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"eqlB", "[", "xp", "]"}], ",", 
        RowBox[{"eqlG", "[", "xp", "]"}], ",", 
        RowBox[{"xp", "+", 
         RowBox[{"\[Mu]\[Beta]", "*", "\[Kappa]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"xp", ",", "1", ",", "3"}], "}"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"0.577523", ",", " ", "0.389181", ",", " ", "0.0897993"}],
             "]"}], ",", "Solid"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", " ", "0.582223", ",", " ", "0"}], "]"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"0", ",", " ", "0.582223", ",", " ", "0"}], "]"}], ",", 
           "Dashed", ",", 
           RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}]}], "}"}]}], ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<Green Exposure \!\(\*SubscriptBox[\(z\), \(G\)]\)\>\"", 
         ",", "\"\<Climate Exposure \\n Held by Investors\>\""}], "}"}]}], ",", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{
             RowBox[{"RGBColor", "[", 
              RowBox[{
              "0.577523", ",", " ", "0.389181", ",", " ", "0.0897993"}], 
              "]"}], ",", "Dashed", ",", 
             RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}], ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", 
                RowBox[{"zB", "+", 
                 RowBox[{"\[Mu]\[Beta]", "*", "\[Kappa]"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"3", ",", 
                RowBox[{"zB", "+", 
                 RowBox[{"\[Mu]\[Beta]", "*", "\[Kappa]"}]}]}], "}"}]}], 
             "}"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"Gray", ",", 
             RowBox[{"Thickness", "[", ".005", "]"}]}], "]"}], ",", 
           "DotDashed", ",", 
           RowBox[{"InfiniteLine", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"effvalzG", "[", 
                 RowBox[{
                 "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "zB", ",", 
                  "\[Kappa]", ",", "\[Lambda]G"}], "]"}], ",", ".1"}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"effvalzG", "[", 
                 RowBox[{
                 "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "zB", ",", 
                  "\[Kappa]", ",", "\[Lambda]G"}], "]"}], ",", ".2"}], 
               "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.900869770030374*^9, 3.90086989263542*^9}, {
   3.900870027168188*^9, 3.9008700714354*^9}, {3.900870130721267*^9, 
   3.900870155206067*^9}, 3.901459223225328*^9, {3.905359557871393*^9, 
   3.905359570061348*^9}, {3.90535968904087*^9, 3.905359773768239*^9}, {
   3.905359823075079*^9, 3.905359827785561*^9}, {3.905359877280805*^9, 
   3.905359958957358*^9}, {3.90536009235146*^9, 3.905360131613165*^9}, {
   3.90536021488945*^9, 3.905360218344972*^9}, 3.97260102579949*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"256eb373-e143-4cbe-aef6-24bb8bb2365c"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.577523, 0.389181, 0.0897993], AbsoluteThickness[1.6], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAaeD0CgAA8D80cHoFAAD8P0gD7juD
AvA/pAH3nUEB/D8oJudsBgXwPxSTczaDAvw/5mvZzgwK8D/ztWxnBgX8P2T3
vZIZFPA/svteyQwK/D9gDocaMyjwPzCHQ40ZFPw/VjwZKmZQ8D8rngwVMyj8
P0SYPUnMoPA/IsyeJGZQ/D+WFfoKH0/xP8sKfYWPp/w/8R/IdeTx8T/4D+Q6
8vj8PyXKHX14kfI/EuWOPrxI/T/POecHkz7zP+ic84NJn/0/gzbCOyDg8z9C
G+EdEPD9P674EPMzj/Q/V3yI+ZlH/j+xWudGFjv1P1itcyOLnf4/vknPQ2vb
9T/fpOehte3+P0H+KsRGifY/IH8VYqNE/z/OP5jtlCv3P+cfzHbKlf8/NCGN
s7HK9z+akMbZWOX/PxDI9fxUd/g/BHI9P9UdAED2+2/vahj5P/7+27saRgBA
UvVdZQfH+T9UfVfZwXEAQIeO03dycvo/ouP0nZycAEDGtFozUBL7PzKt1gyU
xABAe6BVcrS/+z8faJUc7e8AQDoZYlqLYfw/ToaY1mIYAUAzGhDQSGT8P40G
BDQSGQFALBu+RQZn/D/Lhm+RwRkBQB0dGjGBbPw/R4dGTCAbAUAAIdIHd3f8
P0CI9MHdHQFAxyhCtWKN/D8yilCtWCMBQMAp8CogkPw/cAq8CggkAUC4Kp6g
3ZL8P66KJ2i3JAFAqiz6i1iY/D8qi/4iFiYBQI4wsmJOo/w/JIysmNMoAUBU
OCIQOrn8PxWOCIROLgFATTnQhfe7/D9TDnTh/S4BQEY6fvu0vvw/ko7fPq0v
AUA/OyxxcsH8P9AOS5xcMAFARzXV3YXB/D9STXV3YTABQH1lJtA=
          "]], LineBox[CompressedData["
1:eJwVznswXHcYxvE956z90WoHYdOM9IKukUpc4lbVOk9c1tCRi1Zl1i0kZdCx
IV3V1DXjNhGEaEYQzSAEFZU0GhPUqGSRoGLFrZFaosQWlUSa2LU9/eOdZz4z
3z9es0hpwJc0j8cDd/+vHqUN/PWOmj3Z4BiRYk/hA3fn+439anZOOPqzhrMp
SjpFw2q2WOZyeG0vBeN9cJgbUbPRxf1VMQ4U9D1WrlxScM5YfajkvOXpV2o6
pWaDv1n3HnOkoPSh4wwfq9lq07aOdmcK0iDl7UUDDRslrFSJ3SksJtFJF7Zp
2O7YJf9OzkfOm1v6CTXsnsbn9Q4shYNjkTlNphrWpk0sfg8U7D6bE8dbatiU
gmbrl/sorO+flz9107CVetVlDd4UksQL/VtRGlYS3/GU708h1enJoHGnhi2f
nU+8HEzh+0tM+vXQLZY/vWjxQxIFi5Gz1yde17IDblnKo+co3Cq0LT5+Vcse
viVj+pspmGw0Zi9b8mA1fX/FSU4hjyTzI1N58BqwlngrKWQ8Ghw3HOJBkWos
4m9ScCx/qMoScd3W3ZOeJjQU79sfDP+Owuy5HdukNjReyt7QPXGXwp89MAzx
pjHZUEP5mdMQRr4wKA+l4V7bc0BygkYK5UequS2KF6lGemi4fXHmWH0ejQpT
jwH9HQxMBOsBg1U0dhf9pc6IYeD1LTOouEYj+bE44WY3g9jnZm89kNPwpW0/
2mXER+cjxertKRpkVXKIiuSjjM5taVXRyOhCY+VNPtIsAueitDTSPm8JStDT
QVF0eqC1AQOXwXGxXoQOqj61Ci81Y/CHiVeW7i86KM+PeLBgz0AgchXuIwKU
ywyqj4PBsnBx6eMwATCZ+InsAIPA4XeNElsEmJ83/7svhMGPQRV5b2oFCMmv
8XHi/u7q+R3xgQSSfJnxpozrnxX6kzqCgHd+ckcmg54hDztpPYFr3A3rBM52
DRtG41cIxttL9Ks564eFTdQ1EUAy3cCcYtAr33NU3Erwb+9QwB3OeyvuJWd3
EAQ3F4f7ZjEw8Hitlhkl6Gnzk4pzGaTt7MqJUxBcu+A9JeOs2kiIGR0jKJjx
db3Mua9p0qZmgiB6+etRJo9BuklDu8cMQY48M7mb88qiz3DmEoGgcCbH5TSD
kN82W5eeEOhv2jpEcR642FJ6SEWwXlw7Wsq5LmC7xGyVQCnXrP3DObRjYb77
GcFVr6qLTflcf75cbrVBIFI5L09y/jBhf+PZFwRfzWt3655hYGzZJj3yikAR
vavgGOdTvNiAvk2CWa+CphLOa1NvO9lpCAqFVl3dnMNujGwv2yLIyN3sXeF8
ryj7lVZLwPfU695ZwOA/sC65Sg==
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0, 0.582223, 0], AbsoluteThickness[1.6], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAaeD0CgAA8D80cHoFAAD8P0gD7juD
AvA/pAH3nUEB/D8oJudsBgXwPxSTczaDAvw/5mvZzgwK8D/ztWxnBgX8P2T3
vZIZFPA/svteyQwK/D9gDocaMyjwPzCHQ40ZFPw/VjwZKmZQ8D8rngwVMyj8
P0SYPUnMoPA/IsyeJGZQ/D+WFfoKH0/xP8sKfYWPp/w/8R/IdeTx8T/4D+Q6
8vj8PyXKHX14kfI/EuWOPrxI/T/POecHkz7zP+ic84NJn/0/gzbCOyDg8z9C
G+EdEPD9P674EPMzj/Q/V3yI+ZlH/j+xWudGFjv1P1itcyOLnf4/vknPQ2vb
9T/fpOehte3+P0H+KsRGifY/IH8VYqNE/z/OP5jtlCv3P+cfzHbKlf8/NCGN
s7HK9z+akMbZWOX/PxDI9fxUd/g/BHI9P9UdAED2+2/vahj5P/7+27saRgBA
UvVdZQfH+T9UfVfZwXEAQIeO03dycvo/ouP0nZycAEDGtFozUBL7PzKt1gyU
xABAe6BVcrS/+z8faJUc7e8AQDoZYlqLYfw/ToaY1mIYAUBHNdXdhcH8P1JN
dXdhMAFAa+HT+w==
          "]], LineBox[CompressedData["
1:eJwVj11Mk2cAhfv99HtfBhIkFmRzWWBFYUGKzgZtZD0wVhCx1kZirJMK1Yuq
oxZkNNtARGHMobBkGkddNodjtlYbR3QQEREJNFhUglowTBJkk59OyAZ1CNJ1
FydPTvJcnBOdb9LuY0Ui0fuB/M8gxp9zq2tBGezp2fRsDYNS+UTvspuvldIN
YTOjFQxO/8gdadq9qFTNnrUqmhm821fXNBDsV7oS0kuq/2Zw45Tsm0NX/Eoh
JOYjUzwLic9eOblShBdvDpy5pmdRTSx8fqkI6SnZ9hVWFuXDvZ6l90S4nNfy
65J+Fuvqf/cej2XgsC4tTA3j8FC6RqP/nME/dZEp09kc5oqX0KK7DKKa3L6I
Kg6DtgYmK4bFnQzHtLOTwwcXOrbqigL9J0tms59DbUGst6+Dxfbl3335noKH
9a20npAoDlUSTYnyMx4Jtc8Xyo0cxiSjMsd1HpY/VObmdg6h09KdI//y2MTK
FPHhPGpidFmGZDHIlG4bk8+jwNt/fmuxGOVtsJ9r5sFYJ7vkLWKUbXfuMAeJ
MeWVsao5MZJ7PaqgPDHqjzqfH1YKGJKkH6e/ifHhiZHL0ZUChNgNEalEwEFn
3OEHXQImI8bGN+YKsKcUO7pDCXLuvxNe6BRgnliQ2rQEjh3W6lC/AI37JQZP
E7R1PEBBDoEheVdC0XDAnzm1hTQScI+fhnZLKTrupSWZfiH4ynCSX4ylSLL5
wj0XCXZOGQT5KoqQ3NyBxksEvdyxxIZ4is7u1QbVVQI3qw8rT6RYa3VbKlsJ
PH8pojaupwhLe+MC10+g/vrWupubKcpWtFUdeBjwKyyO2WwKr89s7H9EoF8e
l5SopnBdGkxsGCDIb9+76wcNxRGJrSXtKcHcllWpFTkUL8Yy7h8dJxjTGTOz
9BQf35m/Oj5BoHHdLTu2h6Lne+e327wEg8HBt1vzKBq1kbroKYLOE1FG2V6K
3a1/jrbPEDhLMjMkxoB/pr47zkfws90wpN5Psd6stte9DPyrUZdWH6BYtvK6
ac8rArTVjMx/QlEh2q91zROcvzHUKDdRTD95W570OrC3c/ZT0yGK3Gt9kWcX
CYZXP9bazBTu2spXfj+BK/sLxbNCiv8A0/BTLQ==
          "]]},
        Annotation[#, "Charting`Private`Tag#2"]& ], 
       TagBox[
        {RGBColor[0, 0.582223, 0], Thickness[0.01], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwtyn1Q03UcwPHfHr/b2NcjjmGzPCSDIyzFkHLO+H4kbop3JnIStoulM72Q
zgVkcBkPhiRmAZoPCHFHB0eBAUdo0qXTW+p2i8fDDmYlXqEDnbIFG7L9xrLr
88f7Xv+8Y4ymzD1CjuO2POk/c+/MKjjOzf6XZ5tEj7QVQjfKs/g45/tSiRvl
2b08x4BS4UZ59u7c5RPqSDfKs52LjixJinejPHtzvTphb4Yb5Vla3WvpfU1u
lGenVX5F9FYPGmSeaNuBCY8HDbJY+9KS4uP/oAtsUOMkX6XMoCFW8YpFu+zO
DBpinY/DZ5JqZln2J1XzZzdy0K136qK0Xrajo3D5sUYOzOmDr+f97mXjLc5v
LjzkYMNCwjXdUR9bVqYyNqcJYIDVPTy5Yo45o/s+sp8SwJqYL3u67XOsvvaG
Y8ddAYTbvPz2osdMNvFxabtWCL6AaXrf0/MsELxYlPyFEDK9OXuIdZ61+Tt/
qPhbCEeqR4oKCvwszTql1WhEcOO8PikjIsB26zvU8UdFcLApq+D8lQBLGUrQ
3BoXwTq1UX9sF88alas7rieKwZT91/XJ8CDrXeExflglhpLk+/2Rl4PMvMS7
9/PbYjjVJCrryVlgm4cOXXGslMDy4dqesbAQO/Ge7S1XpQR+rl51/IPOEDNY
z2xaOyoBla+98kEch0qhihSLjSUcKoXy8f7RpwY4VApr6v90HY4VoARuPr86
452DApTA/AEqK/xVgBJwtDULNj8nRGWQ0mLZqi8UojKo2R/rGrYIURk0PJNq
V6pFqBxerHHy5bkiVA7Fd3X5vVdFqBzShavWvRAhRhVApvXbBEYxqoByM7R/
3StGFVC6vSs7Xy5Bw+DV/lGdfJcEDYM/VGmHZRclaBhIYzVRG4gUVcKDqMmp
9QYpqoSsweiIgi4pqoTvsxuqFoWkqBLMliHYn0VQClmz1VtIK0EpWAZSE03f
EpRCYpsvYvQ7glJQGgxjrecISuGa9aXdum6CUni5oa+48hJBKYSnKlpEIwSl
UPqs+bO8mwSl4PLl5478RlAKtnOOlc1jBKVQpmr7KfU2QSk8mtw4eGiKoBTe
/iXQPXWfoBTsjV0nt7kISqE1c7E+ZpqgFHIu3Zu4OkvQJ//pemu8j6AU1ua/
0V47R1AKkXE/mnb6CUrhU25fpi1AUAruW0uTE4MEpWC4MLy4boGgFPpqKv2h
EEEp/Au3ByNw
          "]]},
        Annotation[#, "Charting`Private`Tag#3"]& ], {}}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0.577523, 0.389181, 0.0897993]], 
             Line[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAaeD0CgAA8D80cHoFAAD8P0gD7juD
AvA/pAH3nUEB/D8oJudsBgXwPxSTczaDAvw/5mvZzgwK8D/ztWxnBgX8P2T3
vZIZFPA/svteyQwK/D9gDocaMyjwPzCHQ40ZFPw/VjwZKmZQ8D8rngwVMyj8
P0SYPUnMoPA/IsyeJGZQ/D+WFfoKH0/xP8sKfYWPp/w/8R/IdeTx8T/4D+Q6
8vj8PyXKHX14kfI/EuWOPrxI/T/POecHkz7zP+ic84NJn/0/gzbCOyDg8z9C
G+EdEPD9P674EPMzj/Q/V3yI+ZlH/j+xWudGFjv1P1itcyOLnf4/vknPQ2vb
9T/fpOehte3+P0H+KsRGifY/IH8VYqNE/z/OP5jtlCv3P+cfzHbKlf8/NCGN
s7HK9z+akMbZWOX/PxDI9fxUd/g/BHI9P9UdAED2+2/vahj5P/7+27saRgBA
UvVdZQfH+T9UfVfZwXEAQIeO03dycvo/ouP0nZycAEDGtFozUBL7PzKt1gyU
xABAe6BVcrS/+z8faJUc7e8AQDoZYlqLYfw/ToaY1mIYAUAzGhDQSGT8P40G
BDQSGQFALBu+RQZn/D/Lhm+RwRkBQB0dGjGBbPw/R4dGTCAbAUAAIdIHd3f8
P0CI9MHdHQFAxyhCtWKN/D8yilCtWCMBQMAp8CogkPw/cAq8CggkAUC4Kp6g
3ZL8P66KJ2i3JAFAqiz6i1iY/D8qi/4iFiYBQI4wsmJOo/w/JIysmNMoAUBU
OCIQOrn8PxWOCIROLgFATTnQhfe7/D9TDnTh/S4BQEY6fvu0vvw/ko7fPq0v
AUA/OyxxcsH8P9AOS5xcMAFARzXV3YXB/D9STXV3YTABQH1lJtA=
              "]], 
             Line[CompressedData["
1:eJwVznswXHcYxvE956z90WoHYdOM9IKukUpc4lbVOk9c1tCRi1Zl1i0kZdCx
IV3V1DXjNhGEaEYQzSAEFZU0GhPUqGSRoGLFrZFaosQWlUSa2LU9/eOdZz4z
3z9es0hpwJc0j8cDd/+vHqUN/PWOmj3Z4BiRYk/hA3fn+439anZOOPqzhrMp
SjpFw2q2WOZyeG0vBeN9cJgbUbPRxf1VMQ4U9D1WrlxScM5YfajkvOXpV2o6
pWaDv1n3HnOkoPSh4wwfq9lq07aOdmcK0iDl7UUDDRslrFSJ3SksJtFJF7Zp
2O7YJf9OzkfOm1v6CTXsnsbn9Q4shYNjkTlNphrWpk0sfg8U7D6bE8dbatiU
gmbrl/sorO+flz9107CVetVlDd4UksQL/VtRGlYS3/GU708h1enJoHGnhi2f
nU+8HEzh+0tM+vXQLZY/vWjxQxIFi5Gz1yde17IDblnKo+co3Cq0LT5+Vcse
viVj+pspmGw0Zi9b8mA1fX/FSU4hjyTzI1N58BqwlngrKWQ8Ghw3HOJBkWos
4m9ScCx/qMoScd3W3ZOeJjQU79sfDP+Owuy5HdukNjReyt7QPXGXwp89MAzx
pjHZUEP5mdMQRr4wKA+l4V7bc0BygkYK5UequS2KF6lGemi4fXHmWH0ejQpT
jwH9HQxMBOsBg1U0dhf9pc6IYeD1LTOouEYj+bE44WY3g9jnZm89kNPwpW0/
2mXER+cjxertKRpkVXKIiuSjjM5taVXRyOhCY+VNPtIsAueitDTSPm8JStDT
QVF0eqC1AQOXwXGxXoQOqj61Ci81Y/CHiVeW7i86KM+PeLBgz0AgchXuIwKU
ywyqj4PBsnBx6eMwATCZ+InsAIPA4XeNElsEmJ83/7svhMGPQRV5b2oFCMmv
8XHi/u7q+R3xgQSSfJnxpozrnxX6kzqCgHd+ckcmg54hDztpPYFr3A3rBM52
DRtG41cIxttL9Ks564eFTdQ1EUAy3cCcYtAr33NU3Erwb+9QwB3OeyvuJWd3
EAQ3F4f7ZjEw8Hitlhkl6Gnzk4pzGaTt7MqJUxBcu+A9JeOs2kiIGR0jKJjx
db3Mua9p0qZmgiB6+etRJo9BuklDu8cMQY48M7mb88qiz3DmEoGgcCbH5TSD
kN82W5eeEOhv2jpEcR642FJ6SEWwXlw7Wsq5LmC7xGyVQCnXrP3DObRjYb77
GcFVr6qLTflcf75cbrVBIFI5L09y/jBhf+PZFwRfzWt3655hYGzZJj3yikAR
vavgGOdTvNiAvk2CWa+CphLOa1NvO9lpCAqFVl3dnMNujGwv2yLIyN3sXeF8
ryj7lVZLwPfU695ZwOA/sC65Sg==
              "]]}, "Charting`Private`Tag#1"], 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0]], 
             Line[CompressedData["
1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAaeD0CgAA8D80cHoFAAD8P0gD7juD
AvA/pAH3nUEB/D8oJudsBgXwPxSTczaDAvw/5mvZzgwK8D/ztWxnBgX8P2T3
vZIZFPA/svteyQwK/D9gDocaMyjwPzCHQ40ZFPw/VjwZKmZQ8D8rngwVMyj8
P0SYPUnMoPA/IsyeJGZQ/D+WFfoKH0/xP8sKfYWPp/w/8R/IdeTx8T/4D+Q6
8vj8PyXKHX14kfI/EuWOPrxI/T/POecHkz7zP+ic84NJn/0/gzbCOyDg8z9C
G+EdEPD9P674EPMzj/Q/V3yI+ZlH/j+xWudGFjv1P1itcyOLnf4/vknPQ2vb
9T/fpOehte3+P0H+KsRGifY/IH8VYqNE/z/OP5jtlCv3P+cfzHbKlf8/NCGN
s7HK9z+akMbZWOX/PxDI9fxUd/g/BHI9P9UdAED2+2/vahj5P/7+27saRgBA
UvVdZQfH+T9UfVfZwXEAQIeO03dycvo/ouP0nZycAEDGtFozUBL7PzKt1gyU
xABAe6BVcrS/+z8faJUc7e8AQDoZYlqLYfw/ToaY1mIYAUBHNdXdhcH8P1JN
dXdhMAFAa+HT+w==
              "]], 
             Line[CompressedData["
1:eJwVj11Mk2cAhfv99HtfBhIkFmRzWWBFYUGKzgZtZD0wVhCx1kZirJMK1Yuq
oxZkNNtARGHMobBkGkddNodjtlYbR3QQEREJNFhUglowTBJkk59OyAZ1CNJ1
FydPTvJcnBOdb9LuY0Ui0fuB/M8gxp9zq2tBGezp2fRsDYNS+UTvspuvldIN
YTOjFQxO/8gdadq9qFTNnrUqmhm821fXNBDsV7oS0kuq/2Zw45Tsm0NX/Eoh
JOYjUzwLic9eOblShBdvDpy5pmdRTSx8fqkI6SnZ9hVWFuXDvZ6l90S4nNfy
65J+Fuvqf/cej2XgsC4tTA3j8FC6RqP/nME/dZEp09kc5oqX0KK7DKKa3L6I
Kg6DtgYmK4bFnQzHtLOTwwcXOrbqigL9J0tms59DbUGst6+Dxfbl3335noKH
9a20npAoDlUSTYnyMx4Jtc8Xyo0cxiSjMsd1HpY/VObmdg6h09KdI//y2MTK
FPHhPGpidFmGZDHIlG4bk8+jwNt/fmuxGOVtsJ9r5sFYJ7vkLWKUbXfuMAeJ
MeWVsao5MZJ7PaqgPDHqjzqfH1YKGJKkH6e/ifHhiZHL0ZUChNgNEalEwEFn
3OEHXQImI8bGN+YKsKcUO7pDCXLuvxNe6BRgnliQ2rQEjh3W6lC/AI37JQZP
E7R1PEBBDoEheVdC0XDAnzm1hTQScI+fhnZLKTrupSWZfiH4ynCSX4ylSLL5
wj0XCXZOGQT5KoqQ3NyBxksEvdyxxIZ4is7u1QbVVQI3qw8rT6RYa3VbKlsJ
PH8pojaupwhLe+MC10+g/vrWupubKcpWtFUdeBjwKyyO2WwKr89s7H9EoF8e
l5SopnBdGkxsGCDIb9+76wcNxRGJrSXtKcHcllWpFTkUL8Yy7h8dJxjTGTOz
9BQf35m/Oj5BoHHdLTu2h6Lne+e327wEg8HBt1vzKBq1kbroKYLOE1FG2V6K
3a1/jrbPEDhLMjMkxoB/pr47zkfws90wpN5Psd6stte9DPyrUZdWH6BYtvK6
ac8rArTVjMx/QlEh2q91zROcvzHUKDdRTD95W570OrC3c/ZT0yGK3Gt9kWcX
CYZXP9bazBTu2spXfj+BK/sLxbNCiv8A0/BTLQ==
              "]]}, "Charting`Private`Tag#2"], 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0], 
              Dashing[{Small, Small}], 
              Thickness[0.01]], 
             Line[CompressedData["
1:eJwtyn1Q03UcwPHfHr/b2NcjjmGzPCSDIyzFkHLO+H4kbop3JnIStoulM72Q
zgVkcBkPhiRmAZoPCHFHB0eBAUdo0qXTW+p2i8fDDmYlXqEDnbIFG7L9xrLr
88f7Xv+8Y4ymzD1CjuO2POk/c+/MKjjOzf6XZ5tEj7QVQjfKs/g45/tSiRvl
2b08x4BS4UZ59u7c5RPqSDfKs52LjixJinejPHtzvTphb4Yb5Vla3WvpfU1u
lGenVX5F9FYPGmSeaNuBCY8HDbJY+9KS4uP/oAtsUOMkX6XMoCFW8YpFu+zO
DBpinY/DZ5JqZln2J1XzZzdy0K136qK0Xrajo3D5sUYOzOmDr+f97mXjLc5v
LjzkYMNCwjXdUR9bVqYyNqcJYIDVPTy5Yo45o/s+sp8SwJqYL3u67XOsvvaG
Y8ddAYTbvPz2osdMNvFxabtWCL6AaXrf0/MsELxYlPyFEDK9OXuIdZ61+Tt/
qPhbCEeqR4oKCvwszTql1WhEcOO8PikjIsB26zvU8UdFcLApq+D8lQBLGUrQ
3BoXwTq1UX9sF88alas7rieKwZT91/XJ8CDrXeExflglhpLk+/2Rl4PMvMS7
9/PbYjjVJCrryVlgm4cOXXGslMDy4dqesbAQO/Ge7S1XpQR+rl51/IPOEDNY
z2xaOyoBla+98kEch0qhihSLjSUcKoXy8f7RpwY4VApr6v90HY4VoARuPr86
452DApTA/AEqK/xVgBJwtDULNj8nRGWQ0mLZqi8UojKo2R/rGrYIURk0PJNq
V6pFqBxerHHy5bkiVA7Fd3X5vVdFqBzShavWvRAhRhVApvXbBEYxqoByM7R/
3StGFVC6vSs7Xy5Bw+DV/lGdfJcEDYM/VGmHZRclaBhIYzVRG4gUVcKDqMmp
9QYpqoSsweiIgi4pqoTvsxuqFoWkqBLMliHYn0VQClmz1VtIK0EpWAZSE03f
EpRCYpsvYvQ7glJQGgxjrecISuGa9aXdum6CUni5oa+48hJBKYSnKlpEIwSl
UPqs+bO8mwSl4PLl5478RlAKtnOOlc1jBKVQpmr7KfU2QSk8mtw4eGiKoBTe
/iXQPXWfoBTsjV0nt7kISqE1c7E+ZpqgFHIu3Zu4OkvQJ//pemu8j6AU1ua/
0V47R1AKkXE/mnb6CUrhU25fpi1AUAruW0uTE4MEpWC4MLy4boGgFPpqKv2h
EEEp/Au3ByNw
              "]]}, "Charting`Private`Tag#3"], {}}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{1, 3}, {1.7500000204081632`, 
             3.7499999591836737`}}, "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {1.0000000000000022`, 1.7500000204081672`}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0], 
              Dashing[{Small, Small}], 
              Thickness[0.01]], 
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0]], 
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0.577523, 0.389181, 0.0897993]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{1, 3}, {1.7500000204081632`, 3.7499999591836737`}},
           "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {1.0000000000000022`, 1.7500000204081672`}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0.582223, 0], 
             Dashing[{Small, Small}], 
             Thickness[0.01]], 
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0.582223, 0]], 
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0.577523, 0.389181, 0.0897993]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0.577523, 0.389181, 0.0897993]], 
         Line[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAaeD0CgAA8D80cHoFAAD8P0gD7juD
AvA/pAH3nUEB/D8oJudsBgXwPxSTczaDAvw/5mvZzgwK8D/ztWxnBgX8P2T3
vZIZFPA/svteyQwK/D9gDocaMyjwPzCHQ40ZFPw/VjwZKmZQ8D8rngwVMyj8
P0SYPUnMoPA/IsyeJGZQ/D+WFfoKH0/xP8sKfYWPp/w/8R/IdeTx8T/4D+Q6
8vj8PyXKHX14kfI/EuWOPrxI/T/POecHkz7zP+ic84NJn/0/gzbCOyDg8z9C
G+EdEPD9P674EPMzj/Q/V3yI+ZlH/j+xWudGFjv1P1itcyOLnf4/vknPQ2vb
9T/fpOehte3+P0H+KsRGifY/IH8VYqNE/z/OP5jtlCv3P+cfzHbKlf8/NCGN
s7HK9z+akMbZWOX/PxDI9fxUd/g/BHI9P9UdAED2+2/vahj5P/7+27saRgBA
UvVdZQfH+T9UfVfZwXEAQIeO03dycvo/ouP0nZycAEDGtFozUBL7PzKt1gyU
xABAe6BVcrS/+z8faJUc7e8AQDoZYlqLYfw/ToaY1mIYAUAzGhDQSGT8P40G
BDQSGQFALBu+RQZn/D/Lhm+RwRkBQB0dGjGBbPw/R4dGTCAbAUAAIdIHd3f8
P0CI9MHdHQFAxyhCtWKN/D8yilCtWCMBQMAp8CogkPw/cAq8CggkAUC4Kp6g
3ZL8P66KJ2i3JAFAqiz6i1iY/D8qi/4iFiYBQI4wsmJOo/w/JIysmNMoAUBU
OCIQOrn8PxWOCIROLgFATTnQhfe7/D9TDnTh/S4BQEY6fvu0vvw/ko7fPq0v
AUA/OyxxcsH8P9AOS5xcMAFARzXV3YXB/D9STXV3YTABQH1lJtA=
          "]], 
         Line[CompressedData["
1:eJwVznswXHcYxvE956z90WoHYdOM9IKukUpc4lbVOk9c1tCRi1Zl1i0kZdCx
IV3V1DXjNhGEaEYQzSAEFZU0GhPUqGSRoGLFrZFaosQWlUSa2LU9/eOdZz4z
3z9es0hpwJc0j8cDd/+vHqUN/PWOmj3Z4BiRYk/hA3fn+439anZOOPqzhrMp
SjpFw2q2WOZyeG0vBeN9cJgbUbPRxf1VMQ4U9D1WrlxScM5YfajkvOXpV2o6
pWaDv1n3HnOkoPSh4wwfq9lq07aOdmcK0iDl7UUDDRslrFSJ3SksJtFJF7Zp
2O7YJf9OzkfOm1v6CTXsnsbn9Q4shYNjkTlNphrWpk0sfg8U7D6bE8dbatiU
gmbrl/sorO+flz9107CVetVlDd4UksQL/VtRGlYS3/GU708h1enJoHGnhi2f
nU+8HEzh+0tM+vXQLZY/vWjxQxIFi5Gz1yde17IDblnKo+co3Cq0LT5+Vcse
viVj+pspmGw0Zi9b8mA1fX/FSU4hjyTzI1N58BqwlngrKWQ8Ghw3HOJBkWos
4m9ScCx/qMoScd3W3ZOeJjQU79sfDP+Owuy5HdukNjReyt7QPXGXwp89MAzx
pjHZUEP5mdMQRr4wKA+l4V7bc0BygkYK5UequS2KF6lGemi4fXHmWH0ejQpT
jwH9HQxMBOsBg1U0dhf9pc6IYeD1LTOouEYj+bE44WY3g9jnZm89kNPwpW0/
2mXER+cjxertKRpkVXKIiuSjjM5taVXRyOhCY+VNPtIsAueitDTSPm8JStDT
QVF0eqC1AQOXwXGxXoQOqj61Ci81Y/CHiVeW7i86KM+PeLBgz0AgchXuIwKU
ywyqj4PBsnBx6eMwATCZ+InsAIPA4XeNElsEmJ83/7svhMGPQRV5b2oFCMmv
8XHi/u7q+R3xgQSSfJnxpozrnxX6kzqCgHd+ckcmg54hDztpPYFr3A3rBM52
DRtG41cIxttL9Ks564eFTdQ1EUAy3cCcYtAr33NU3Erwb+9QwB3OeyvuJWd3
EAQ3F4f7ZjEw8Hitlhkl6Gnzk4pzGaTt7MqJUxBcu+A9JeOs2kiIGR0jKJjx
db3Mua9p0qZmgiB6+etRJo9BuklDu8cMQY48M7mb88qiz3DmEoGgcCbH5TSD
kN82W5eeEOhv2jpEcR642FJ6SEWwXlw7Wsq5LmC7xGyVQCnXrP3DObRjYb77
GcFVr6qLTflcf75cbrVBIFI5L09y/jBhf+PZFwRfzWt3655hYGzZJj3yikAR
vavgGOdTvNiAvk2CWa+CphLOa1NvO9lpCAqFVl3dnMNujGwv2yLIyN3sXeF8
ryj7lVZLwPfU695ZwOA/sC65Sg==
          "]]}, "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0]], 
         Line[CompressedData["
1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAaeD0CgAA8D80cHoFAAD8P0gD7juD
AvA/pAH3nUEB/D8oJudsBgXwPxSTczaDAvw/5mvZzgwK8D/ztWxnBgX8P2T3
vZIZFPA/svteyQwK/D9gDocaMyjwPzCHQ40ZFPw/VjwZKmZQ8D8rngwVMyj8
P0SYPUnMoPA/IsyeJGZQ/D+WFfoKH0/xP8sKfYWPp/w/8R/IdeTx8T/4D+Q6
8vj8PyXKHX14kfI/EuWOPrxI/T/POecHkz7zP+ic84NJn/0/gzbCOyDg8z9C
G+EdEPD9P674EPMzj/Q/V3yI+ZlH/j+xWudGFjv1P1itcyOLnf4/vknPQ2vb
9T/fpOehte3+P0H+KsRGifY/IH8VYqNE/z/OP5jtlCv3P+cfzHbKlf8/NCGN
s7HK9z+akMbZWOX/PxDI9fxUd/g/BHI9P9UdAED2+2/vahj5P/7+27saRgBA
UvVdZQfH+T9UfVfZwXEAQIeO03dycvo/ouP0nZycAEDGtFozUBL7PzKt1gyU
xABAe6BVcrS/+z8faJUc7e8AQDoZYlqLYfw/ToaY1mIYAUBHNdXdhcH8P1JN
dXdhMAFAa+HT+w==
          "]], 
         Line[CompressedData["
1:eJwVj11Mk2cAhfv99HtfBhIkFmRzWWBFYUGKzgZtZD0wVhCx1kZirJMK1Yuq
oxZkNNtARGHMobBkGkddNodjtlYbR3QQEREJNFhUglowTBJkk59OyAZ1CNJ1
FydPTvJcnBOdb9LuY0Ui0fuB/M8gxp9zq2tBGezp2fRsDYNS+UTvspuvldIN
YTOjFQxO/8gdadq9qFTNnrUqmhm821fXNBDsV7oS0kuq/2Zw45Tsm0NX/Eoh
JOYjUzwLic9eOblShBdvDpy5pmdRTSx8fqkI6SnZ9hVWFuXDvZ6l90S4nNfy
65J+Fuvqf/cej2XgsC4tTA3j8FC6RqP/nME/dZEp09kc5oqX0KK7DKKa3L6I
Kg6DtgYmK4bFnQzHtLOTwwcXOrbqigL9J0tms59DbUGst6+Dxfbl3335noKH
9a20npAoDlUSTYnyMx4Jtc8Xyo0cxiSjMsd1HpY/VObmdg6h09KdI//y2MTK
FPHhPGpidFmGZDHIlG4bk8+jwNt/fmuxGOVtsJ9r5sFYJ7vkLWKUbXfuMAeJ
MeWVsao5MZJ7PaqgPDHqjzqfH1YKGJKkH6e/ifHhiZHL0ZUChNgNEalEwEFn
3OEHXQImI8bGN+YKsKcUO7pDCXLuvxNe6BRgnliQ2rQEjh3W6lC/AI37JQZP
E7R1PEBBDoEheVdC0XDAnzm1hTQScI+fhnZLKTrupSWZfiH4ynCSX4ylSLL5
wj0XCXZOGQT5KoqQ3NyBxksEvdyxxIZ4is7u1QbVVQI3qw8rT6RYa3VbKlsJ
PH8pojaupwhLe+MC10+g/vrWupubKcpWtFUdeBjwKyyO2WwKr89s7H9EoF8e
l5SopnBdGkxsGCDIb9+76wcNxRGJrSXtKcHcllWpFTkUL8Yy7h8dJxjTGTOz
9BQf35m/Oj5BoHHdLTu2h6Lne+e327wEg8HBt1vzKBq1kbroKYLOE1FG2V6K
3a1/jrbPEDhLMjMkxoB/pr47zkfws90wpN5Psd6stte9DPyrUZdWH6BYtvK6
ac8rArTVjMx/QlEh2q91zROcvzHUKDdRTD95W570OrC3c/ZT0yGK3Gt9kWcX
CYZXP9bazBTu2spXfj+BK/sLxbNCiv8A0/BTLQ==
          "]]}, "Charting`Private`Tag#2"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0], 
          Dashing[{Small, Small}], 
          Thickness[0.01]], 
         Line[CompressedData["
1:eJwtyn1Q03UcwPHfHr/b2NcjjmGzPCSDIyzFkHLO+H4kbop3JnIStoulM72Q
zgVkcBkPhiRmAZoPCHFHB0eBAUdo0qXTW+p2i8fDDmYlXqEDnbIFG7L9xrLr
88f7Xv+8Y4ymzD1CjuO2POk/c+/MKjjOzf6XZ5tEj7QVQjfKs/g45/tSiRvl
2b08x4BS4UZ59u7c5RPqSDfKs52LjixJinejPHtzvTphb4Yb5Vla3WvpfU1u
lGenVX5F9FYPGmSeaNuBCY8HDbJY+9KS4uP/oAtsUOMkX6XMoCFW8YpFu+zO
DBpinY/DZ5JqZln2J1XzZzdy0K136qK0Xrajo3D5sUYOzOmDr+f97mXjLc5v
LjzkYMNCwjXdUR9bVqYyNqcJYIDVPTy5Yo45o/s+sp8SwJqYL3u67XOsvvaG
Y8ddAYTbvPz2osdMNvFxabtWCL6AaXrf0/MsELxYlPyFEDK9OXuIdZ61+Tt/
qPhbCEeqR4oKCvwszTql1WhEcOO8PikjIsB26zvU8UdFcLApq+D8lQBLGUrQ
3BoXwTq1UX9sF88alas7rieKwZT91/XJ8CDrXeExflglhpLk+/2Rl4PMvMS7
9/PbYjjVJCrryVlgm4cOXXGslMDy4dqesbAQO/Ge7S1XpQR+rl51/IPOEDNY
z2xaOyoBla+98kEch0qhihSLjSUcKoXy8f7RpwY4VApr6v90HY4VoARuPr86
452DApTA/AEqK/xVgBJwtDULNj8nRGWQ0mLZqi8UojKo2R/rGrYIURk0PJNq
V6pFqBxerHHy5bkiVA7Fd3X5vVdFqBzShavWvRAhRhVApvXbBEYxqoByM7R/
3StGFVC6vSs7Xy5Bw+DV/lGdfJcEDYM/VGmHZRclaBhIYzVRG4gUVcKDqMmp
9QYpqoSsweiIgi4pqoTvsxuqFoWkqBLMliHYn0VQClmz1VtIK0EpWAZSE03f
EpRCYpsvYvQ7glJQGgxjrecISuGa9aXdum6CUni5oa+48hJBKYSnKlpEIwSl
UPqs+bO8mwSl4PLl5478RlAKtnOOlc1jBKVQpmr7KfU2QSk8mtw4eGiKoBTe
/iXQPXWfoBTsjV0nt7kISqE1c7E+ZpqgFHIu3Zu4OkvQJ//pemu8j6AU1ua/
0V47R1AKkXE/mnb6CUrhU25fpi1AUAruW0uTE4MEpWC4MLy4boGgFPpqKv2h
EEEp/Au3ByNw
          "]]}, "Charting`Private`Tag#3"], {}}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{1, 3}, {1.7500000204081632`, 3.7499999591836737`}}, 
       "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {1.0000000000000022`, 1.7500000204081672`}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0], 
          Dashing[{Small, Small}], 
          Thickness[0.01]], 
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0]], 
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0.577523, 0.389181, 0.0897993]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{1.0000000000000022`, 1.7500000204081672`},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{{
     Directive[
      RGBColor[0.577523, 0.389181, 0.0897993], 
      Dashing[{Small, Small}], 
      Thickness[0.01]], 
     LineBox[{{1, 1.75}, {3, 1.75}}]}, {
     Directive[
      GrayLevel[0.5], 
      Thickness[0.005]], 
     Dashing[{0, Small, Small, Small}], 
     TagBox[
      ConicHullRegionBox[{{1.7978845608028653`, 0.1}, {1.7978845608028653`, 
       0.2}}], "InfiniteLine"]}},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox["\"Climate Exposure \\n Held by Investors\"", HoldForm], 
      TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"Green Exposure \\!\\(\\*SubscriptBox[\\(z\\), \\(G\\)]\\)\"", 
       HoldForm], TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->250,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{1, 3}, {1.7500000204081632`, 3.7499999591836737`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.900869853579226*^9, 3.900869893126835*^9}, {
   3.900870043739414*^9, 3.900870071878244*^9}, {3.900870133697774*^9, 
   3.90087015661618*^9}, 3.900880960879569*^9, {3.901459200965521*^9, 
   3.901459223652419*^9}, {3.905359550274384*^9, 3.905359570702982*^9}, {
   3.905359704764792*^9, 3.905359774370501*^9}, {3.90535982375942*^9, 
   3.9053598284015102`*^9}, {3.905359880232782*^9, 3.9053599290554523`*^9}, 
   3.9053599596493483`*^9, {3.905360093061823*^9, 3.905360132740512*^9}, 
   3.9053602191197863`*^9, 3.972600982703319*^9, 3.972601026254668*^9, 
   3.972652825434596*^9, 3.972653153405891*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"7aec3c9e-8685-4eb7-9684-96145a85e155"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 4", "Section",
 CellChangeTimes->{{3.972600999317491*^9, 
  3.972600999894937*^9}},ExpressionUUID->"151743c1-5702-4aac-ad4a-\
e4d332d03ef0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eqef", "=", 
     RowBox[{"effval", "[", 
      RowBox[{
      "\[Mu]\[Beta]", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
       "\[Lambda]G"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"eqlG", "[", "\[Sigma]\[Beta]_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{"\[Sigma]\[Beta]", "<=", "eqef"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"zG", "+", 
         RowBox[{
          FractionBox["\[Kappa]", "\[Lambda]G"], "*", 
          RowBox[{"gL", "[", 
           RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            RowBox[{"eq", "[", 
             RowBox[{
             "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",", 
              "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
              "\[Lambda]G"}], "]"}]}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{"\[Sigma]\[Beta]", ">", "eqef"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Lambda]G", "*", "zG"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Lambda]G"}], ")"}], "*", "zB"}], "+", 
         RowBox[{"\[Kappa]", "*", "\[Mu]\[Beta]"}]}], ")"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"eqlB", "[", "\[Sigma]\[Beta]_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{"\[Sigma]\[Beta]", "<=", "eqef"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"zB", "+", 
         RowBox[{
          FractionBox["\[Kappa]", 
           RowBox[{"1", "-", "\[Lambda]G"}]], "*", 
          RowBox[{"gU", "[", 
           RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
            RowBox[{"eq", "[", 
             RowBox[{
             "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",", 
              "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
              "\[Lambda]G"}], "]"}]}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"Boole", "[", 
        RowBox[{"\[Sigma]\[Beta]", ">", "eqef"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Lambda]G", "*", "zG"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Lambda]G"}], ")"}], "*", "zB"}], "+", 
         RowBox[{"\[Kappa]", "*", "\[Mu]\[Beta]"}]}], ")"}]}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"eqlB", "[", "xp", "]"}], ",", 
        RowBox[{"eqlG", "[", "xp", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"xp", ",", "1", ",", "3"}], "}"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"0.577523", ",", " ", "0.389181", ",", " ", "0.0897993"}],
             "]"}], ",", "Solid"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"0", ",", " ", "0.582223", ",", " ", "0"}], "]"}], ",", 
           "Dashed"}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"Black", ",", "DotDashed"}], "]"}]}], "}"}]}], ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<Informativeness \!\(\*SubscriptBox[\(\[Sigma]\), \
OverscriptBox[\(\[Beta]\), \(^\)]]\)\>\"", 
         ",", "\"\<Climate Exposure \\n Held by Investors\>\""}], "}"}]}], ",", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Rotate", "[", 
          RowBox[{
           RowBox[{"Inset", "[", 
            RowBox[{
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Efficiency Obtained\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "10",
                 ",", "Black"}], "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"2.4", ",", ".23"}], "}"}]}], "]"}], ",", 
           RowBox[{"90", " ", "Degree"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
           RowBox[{"InfiniteLine", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"effval", "[", 
                 RowBox[{
                 "\[Mu]\[Beta]", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
                  "\[Lambda]G"}], "]"}], ",", ".1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"effval", "[", 
                 RowBox[{
                 "\[Mu]\[Beta]", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
                  "\[Lambda]G"}], "]"}], ",", ".2"}], "}"}]}], "}"}], "]"}]}],
           "}"}]}], "}"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.879696565466393*^9, 3.879696578751706*^9}, 
   3.900171731397772*^9, 3.90068957820679*^9, {3.900689676685585*^9, 
   3.900689677735936*^9}, {3.900689758792832*^9, 3.900689831022633*^9}, {
   3.900689957669744*^9, 3.900690080915475*^9}, {3.9006901267840357`*^9, 
   3.900690130201542*^9}, {3.90069016468589*^9, 3.900690252721373*^9}, {
   3.9006904129052057`*^9, 3.900690500120063*^9}, {3.900690880168146*^9, 
   3.900690942418616*^9}, {3.9006909795554953`*^9, 3.90069105191675*^9}, {
   3.900691087045418*^9, 3.900691097029415*^9}, {3.900691129961855*^9, 
   3.900691157215565*^9}, {3.900691369412871*^9, 3.900691391744411*^9}, {
   3.900845848922447*^9, 3.9008458777435*^9}, 3.900846006791318*^9, {
   3.900851305541382*^9, 3.900851322879719*^9}, 3.900851353838806*^9, {
   3.9008513857601624`*^9, 3.900851396960409*^9}, 3.900852007568028*^9, 
   3.9008628146916943`*^9, 3.900869881148721*^9, {3.901459190545456*^9, 
   3.901459214193093*^9}, 3.901549537129501*^9, 3.901549976136031*^9, 
   3.972601047125119*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"ef3b9f5e-632c-45d1-a7c3-d98f4d31fc39"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.577523, 0.389181, 0.0897993], AbsoluteThickness[1.6], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwV0msw3FccxvG15xyrLhnMyti06RKX0Y00aayIUOcnbpWmoWiiRhSJNMgE
awx1SWVQkYxLghIS1SENxaaKaGMkpagRl0gqqoqN29Z9WSx20X9fPPPM5/3X
ODjCK4TNYrGcmP3/oZJVTRZLRvPvVre8k4ngI7Rol8KW0d4Ewag3Ywtz6RV1
IqPs0wp8i/F0+FCvtqaMpqiLojYZX1Q03+FxZfSIoKj9dRaCwD3p+6wsZHS5
xMI3NwfBWXue4JKnjG42Lehx8xA4F37o3l0qo5+M9x2zKkbwrcGWJt9jmdpb
ptqbVyFY5nfGTC4vU84ssvz+CQKzrv1JcbdXqHqIT4hnF4I+Wykn10FO41Wl
KUPDCFKOtdoZSeT0hSjueuU8AvGGrtwqe5U+EkTnee0iqPWTuu61W6P5V3Ib
NPUxPHXvcwofXqPGNUs5/SYYHHcEba4Z69R0KuNoiA2GXlq4kHdQQdMeT9fM
uGMQGmfW1XYpaGwF77ijPwbdzjWVT+wGrRvwFnhHYlhXRiyFGW7SFbuoioMp
GLzWzodw/tikhknxD8QFGNKzXsWKRFtU3iN2G67C0FHvZ+Wpr6ShSToFlU8x
JJR+Jqp/pqQTd3Tvs15hOMEL9rsVpKLhdLp4YgpDxLnx9n91t+kezxbbo1sY
kqxne7jN2/TecGDfnA6B/FL0dd35HTryQ/OogREBk/6cur+0dmlZhPl2rBWB
pqzDtyPFuzSjX655woWAwfqPaXPmLPCf1eK6niVwgxOHg5NYIOngf+x5mUDy
WM+gXi8LxvYmbNTEERAWjcynmqmBoL73038yCPxp+oHnFwlqYBugFcMvIrAZ
o6MR/VwNjrAXqxorCAxVlqmdOsAGX5u2CxONBBzKWz38otnwU0P1odB2AtlX
zeb7W9nw6/C5IJ2XBIrfPtmlzUNgpKhr0xsjYJktVSWHItgJOnM9c5ZA3JRr
1C+/ITj090mJ2zqBubQw4U4LgginZ84ixgHmWQqn3xHIHkhK7jF2+XIgqa+d
6fIRV7jMWH/mws1ppptrqV7jdxUEqueTy7gDCE5Vi8/MbBCQyJ8MRM4gaFoR
hScrCXjnjRY+nkXwgtOZVsm4Q8j2V80hCOYP5r9kXBPjPp6+iMDUxbzAVEUg
XjG4WCJH8LPw/rudjBcKlLWTqwjc+YPTMsaBx/kxgnUE+zT6y3nbBNy+uqRs
2EBQJ+Wwwxlzlaucnm0EwvICR50dAunFhs/1mW5tHaSN1oy37OyzfFkYVLxt
kwDGbxJTuJNsDDd7ro2IGfvsfzj4HsaQ6DQvGGTc2dxVFEEwxNqYXN1lLN7R
M1ZyMIy+kQ147BI48J31JLyF4X2asRXLOJ9+/vAbTQynLy9ySxlrSBLDurUw
XLQyNutkbFA/1+KsjeFwt+/Sa8b/AcsE5X8=
          "]], 
         LineBox[{{2.507266029733041, 2.75}, {2.5088676972957598`, 2.75}, {
          2.52836088664397, 2.75}, {2.54785407599218, 2.75}, {
          2.5901425648697227`, 2.75}, {2.6296107149487957`, 2.75}, {
          2.672380975208991, 2.75}, {2.714371712997247, 2.75}, {
          2.7535421119870334`, 2.75}, {2.796014621157942, 2.75}, {
          2.835666791530381, 2.75}, {2.8745394394308814`, 2.75}, {
          2.916714197512504, 2.75}, {2.956068616795657, 2.75}, {
          2.978034287989665, 2.75}, {2.9999999591836737`, 2.75}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0, 0.582223, 0], AbsoluteThickness[1.6], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwVx3kwnGccwPG17+t534g71liNug2aqDiqsannlziCNo2rNFIRggpaidTR
IEkdXdJa0RCGjMjIjKR11FBVCUVcXYuKbFWjsUl1hUXWfayjb//4znc+xuHx
fpFsFovlyvT/z0uWVVgsOY6N8nf5J4EGT2Kel8mWY7sssXE1Y0uLqTikLMc7
DbTiC8bS2LFBVRU5Tt/IEyDGEWut33F15Ph3caSz1UUazqrz9e0t5VgjbLQq
Lp6GwCNc6ygfOabctOdlsTS4lbznJaqQ40YD299EETTc4myqGJ5cwF0jqY/H
AmhYMOxLnFxYwBucrZEz7jSYCw3SUwoW8WbpD6V1jjQMHZ6ibrosYT4RmmZh
RkPmO508I8kSts3jXwncR0PtuuaSff4y9hV/G1vDoqE+eMpDl7eCY2/Gea/M
UdDmNeQa+2wFT/hpxtuMU3B0x7rLI3cVj+snDZT2UTCIS+YK31rDqV5cP90m
ChyM8xrqhWs4N0ja21ZJgWbfylZA8jo+YV0trs6nYFUR/zpGbwOrdwmCnqZR
4LcSEkn1buBXGdnBvtEU8AUjyQkJm1jNzrfZLICCnsZgex9tBS7OWIwOPEpB
asVHCY2/KrDBZ6/Ddw9Q4MwND/4mbAsXtXMj9utTEB/0svuV5jZerHPpGVCm
IN1xZkCndRtHmt2x1VlEUFRBXG0I2cGmp44Zz0wgMB2+0fDn3l0ccmOMnSNC
8FDwdsGF2l2cbKO60t2CgLP6fbbMggX3OMuyXx4gyKFSyPB0FhgdljTWFSO4
NjEwqjXIAuPpLMqPj8Ch9O/ZLHMl+OP9Q7WmSQiemh3yCU1Vgt67y9clkQg2
EtXoS/1KMLStFeAZhGDsQaWStwkb7vfxbu/3ROByr/Nk8CU2+Hj7P7nljCD/
c/PZ4U42HDe7X754EEHZG8eEqlwCJPQHvHkjBAfyp7aunSeAXV5/JYGDIOVf
j4vN7QSMmLcaNu9BIMuOcdjpIKDgETzMY3zGQrDm+pgAjWDDsHOM3T8Vpw91
E3DbR9avzlh7+tx1qZCAjNQagygaQfXstUodMQFN/r71uhQCyVKL+MI0Ae5q
eYVXSQT+hc9LmmYIsF13uhzIuMeB/cmWjIByiWXMQcY1iV4v+fMEjLeMRT8j
EFxeG50vXyLgw/7wF06M54oV9ZPLBPwsseRqMD77rmGi9SoB0jWb01I2guNf
Ril+WifghN76diFjHcUyNbBNgOh0dNuiEgJ+mV6/9i4BvR16nkLGm7wjgo9Z
JJBS9vhdxi/SMnUm2SQk2X1l4ss4wKBq1IokIevRPrEl475WYWm8Mgm5feMF
LMa1O1rGCooEkzc1rH9kITC54zgJe0h40p6knMO4CJ+q+lqFhMZiLVkoY1qS
FiPaS0KZ6PlfTow5jbION1UShu2rNK0Y/wfiw8Yf
          "]], 
         LineBox[{{2.507266029733041, 2.75}, {2.5088676972957598`, 2.75}, {
          2.52836088664397, 2.75}, {2.54785407599218, 2.75}, {
          2.5901425648697227`, 2.75}, {2.6296107149487957`, 2.75}, {
          2.672380975208991, 2.75}, {2.714371712997247, 2.75}, {
          2.7535421119870334`, 2.75}, {2.796014621157942, 2.75}, {
          2.835666791530381, 2.75}, {2.8745394394308814`, 2.75}, {
          2.916714197512504, 2.75}, {2.956068616795657, 2.75}, {
          2.978034287989665, 2.75}, {2.9999999591836737`, 2.75}}]},
        Annotation[#, "Charting`Private`Tag#2"]& ], {}}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0.577523, 0.389181, 0.0897993]], 
             Line[CompressedData["
1:eJwV0msw3FccxvG15xyrLhnMyti06RKX0Y00aayIUOcnbpWmoWiiRhSJNMgE
awx1SWVQkYxLghIS1SENxaaKaGMkpagRl0gqqoqN29Z9WSx20X9fPPPM5/3X
ODjCK4TNYrGcmP3/oZJVTRZLRvPvVre8k4ngI7Rol8KW0d4Ewag3Ywtz6RV1
IqPs0wp8i/F0+FCvtqaMpqiLojYZX1Q03+FxZfSIoKj9dRaCwD3p+6wsZHS5
xMI3NwfBWXue4JKnjG42Lehx8xA4F37o3l0qo5+M9x2zKkbwrcGWJt9jmdpb
ptqbVyFY5nfGTC4vU84ssvz+CQKzrv1JcbdXqHqIT4hnF4I+Wykn10FO41Wl
KUPDCFKOtdoZSeT0hSjueuU8AvGGrtwqe5U+EkTnee0iqPWTuu61W6P5V3Ib
NPUxPHXvcwofXqPGNUs5/SYYHHcEba4Z69R0KuNoiA2GXlq4kHdQQdMeT9fM
uGMQGmfW1XYpaGwF77ijPwbdzjWVT+wGrRvwFnhHYlhXRiyFGW7SFbuoioMp
GLzWzodw/tikhknxD8QFGNKzXsWKRFtU3iN2G67C0FHvZ+Wpr6ShSToFlU8x
JJR+Jqp/pqQTd3Tvs15hOMEL9rsVpKLhdLp4YgpDxLnx9n91t+kezxbbo1sY
kqxne7jN2/TecGDfnA6B/FL0dd35HTryQ/OogREBk/6cur+0dmlZhPl2rBWB
pqzDtyPFuzSjX655woWAwfqPaXPmLPCf1eK6niVwgxOHg5NYIOngf+x5mUDy
WM+gXi8LxvYmbNTEERAWjcynmqmBoL73038yCPxp+oHnFwlqYBugFcMvIrAZ
o6MR/VwNjrAXqxorCAxVlqmdOsAGX5u2CxONBBzKWz38otnwU0P1odB2AtlX
zeb7W9nw6/C5IJ2XBIrfPtmlzUNgpKhr0xsjYJktVSWHItgJOnM9c5ZA3JRr
1C+/ITj090mJ2zqBubQw4U4LgginZ84ixgHmWQqn3xHIHkhK7jF2+XIgqa+d
6fIRV7jMWH/mws1ppptrqV7jdxUEqueTy7gDCE5Vi8/MbBCQyJ8MRM4gaFoR
hScrCXjnjRY+nkXwgtOZVsm4Q8j2V80hCOYP5r9kXBPjPp6+iMDUxbzAVEUg
XjG4WCJH8LPw/rudjBcKlLWTqwjc+YPTMsaBx/kxgnUE+zT6y3nbBNy+uqRs
2EBQJ+Wwwxlzlaucnm0EwvICR50dAunFhs/1mW5tHaSN1oy37OyzfFkYVLxt
kwDGbxJTuJNsDDd7ro2IGfvsfzj4HsaQ6DQvGGTc2dxVFEEwxNqYXN1lLN7R
M1ZyMIy+kQ147BI48J31JLyF4X2asRXLOJ9+/vAbTQynLy9ySxlrSBLDurUw
XLQyNutkbFA/1+KsjeFwt+/Sa8b/AcsE5X8=
              "]], 
             
             Line[{{2.507266029733041, 2.75}, {2.5088676972957598`, 2.75}, {
              2.52836088664397, 2.75}, {2.54785407599218, 2.75}, {
              2.5901425648697227`, 2.75}, {2.6296107149487957`, 2.75}, {
              2.672380975208991, 2.75}, {2.714371712997247, 2.75}, {
              2.7535421119870334`, 2.75}, {2.796014621157942, 2.75}, {
              2.835666791530381, 2.75}, {2.8745394394308814`, 2.75}, {
              2.916714197512504, 2.75}, {2.956068616795657, 2.75}, {
              2.978034287989665, 2.75}, {2.9999999591836737`, 2.75}}]}, 
            "Charting`Private`Tag#1"], 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0], 
              Dashing[{Small, Small}]], 
             Line[CompressedData["
1:eJwVx3kwnGccwPG17+t534g71liNug2aqDiqsannlziCNo2rNFIRggpaidTR
IEkdXdJa0RCGjMjIjKR11FBVCUVcXYuKbFWjsUl1hUXWfayjb//4znc+xuHx
fpFsFovlyvT/z0uWVVgsOY6N8nf5J4EGT2Kel8mWY7sssXE1Y0uLqTikLMc7
DbTiC8bS2LFBVRU5Tt/IEyDGEWut33F15Ph3caSz1UUazqrz9e0t5VgjbLQq
Lp6GwCNc6ygfOabctOdlsTS4lbznJaqQ40YD299EETTc4myqGJ5cwF0jqY/H
AmhYMOxLnFxYwBucrZEz7jSYCw3SUwoW8WbpD6V1jjQMHZ6ibrosYT4RmmZh
RkPmO508I8kSts3jXwncR0PtuuaSff4y9hV/G1vDoqE+eMpDl7eCY2/Gea/M
UdDmNeQa+2wFT/hpxtuMU3B0x7rLI3cVj+snDZT2UTCIS+YK31rDqV5cP90m
ChyM8xrqhWs4N0ja21ZJgWbfylZA8jo+YV0trs6nYFUR/zpGbwOrdwmCnqZR
4LcSEkn1buBXGdnBvtEU8AUjyQkJm1jNzrfZLICCnsZgex9tBS7OWIwOPEpB
asVHCY2/KrDBZ6/Ddw9Q4MwND/4mbAsXtXMj9utTEB/0svuV5jZerHPpGVCm
IN1xZkCndRtHmt2x1VlEUFRBXG0I2cGmp44Zz0wgMB2+0fDn3l0ccmOMnSNC
8FDwdsGF2l2cbKO60t2CgLP6fbbMggX3OMuyXx4gyKFSyPB0FhgdljTWFSO4
NjEwqjXIAuPpLMqPj8Ch9O/ZLHMl+OP9Q7WmSQiemh3yCU1Vgt67y9clkQg2
EtXoS/1KMLStFeAZhGDsQaWStwkb7vfxbu/3ROByr/Nk8CU2+Hj7P7nljCD/
c/PZ4U42HDe7X754EEHZG8eEqlwCJPQHvHkjBAfyp7aunSeAXV5/JYGDIOVf
j4vN7QSMmLcaNu9BIMuOcdjpIKDgETzMY3zGQrDm+pgAjWDDsHOM3T8Vpw91
E3DbR9avzlh7+tx1qZCAjNQagygaQfXstUodMQFN/r71uhQCyVKL+MI0Ae5q
eYVXSQT+hc9LmmYIsF13uhzIuMeB/cmWjIByiWXMQcY1iV4v+fMEjLeMRT8j
EFxeG50vXyLgw/7wF06M54oV9ZPLBPwsseRqMD77rmGi9SoB0jWb01I2guNf
Ril+WifghN76diFjHcUyNbBNgOh0dNuiEgJ+mV6/9i4BvR16nkLGm7wjgo9Z
JJBS9vhdxi/SMnUm2SQk2X1l4ss4wKBq1IokIevRPrEl475WYWm8Mgm5feMF
LMa1O1rGCooEkzc1rH9kITC54zgJe0h40p6knMO4CJ+q+lqFhMZiLVkoY1qS
FiPaS0KZ6PlfTow5jbION1UShu2rNK0Y/wfiw8Yf
              "]], 
             
             Line[{{2.507266029733041, 2.75}, {2.5088676972957598`, 2.75}, {
              2.52836088664397, 2.75}, {2.54785407599218, 2.75}, {
              2.5901425648697227`, 2.75}, {2.6296107149487957`, 2.75}, {
              2.672380975208991, 2.75}, {2.714371712997247, 2.75}, {
              2.7535421119870334`, 2.75}, {2.796014621157942, 2.75}, {
              2.835666791530381, 2.75}, {2.8745394394308814`, 2.75}, {
              2.916714197512504, 2.75}, {2.956068616795657, 2.75}, {
              2.978034287989665, 2.75}, {2.9999999591836737`, 2.75}}]}, 
            "Charting`Private`Tag#2"], {}}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{1, 3}, {2.443902504997093, 3.056097495002907}}, 
           "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {1.0000000000000022`, 2.4439025049970984`}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0], 
              Dashing[{Small, Small}]], 
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0.577523, 0.389181, 0.0897993]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{1, 3}, {2.443902504997093, 3.056097495002907}}, 
          "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {1.0000000000000022`, 2.4439025049970984`}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0.582223, 0], 
             Dashing[{Small, Small}]], 
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0.577523, 0.389181, 0.0897993]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0.577523, 0.389181, 0.0897993]], 
         Line[CompressedData["
1:eJwV0msw3FccxvG15xyrLhnMyti06RKX0Y00aayIUOcnbpWmoWiiRhSJNMgE
awx1SWVQkYxLghIS1SENxaaKaGMkpagRl0gqqoqN29Z9WSx20X9fPPPM5/3X
ODjCK4TNYrGcmP3/oZJVTRZLRvPvVre8k4ngI7Rol8KW0d4Ewag3Ywtz6RV1
IqPs0wp8i/F0+FCvtqaMpqiLojYZX1Q03+FxZfSIoKj9dRaCwD3p+6wsZHS5
xMI3NwfBWXue4JKnjG42Lehx8xA4F37o3l0qo5+M9x2zKkbwrcGWJt9jmdpb
ptqbVyFY5nfGTC4vU84ssvz+CQKzrv1JcbdXqHqIT4hnF4I+Wykn10FO41Wl
KUPDCFKOtdoZSeT0hSjueuU8AvGGrtwqe5U+EkTnee0iqPWTuu61W6P5V3Ib
NPUxPHXvcwofXqPGNUs5/SYYHHcEba4Z69R0KuNoiA2GXlq4kHdQQdMeT9fM
uGMQGmfW1XYpaGwF77ijPwbdzjWVT+wGrRvwFnhHYlhXRiyFGW7SFbuoioMp
GLzWzodw/tikhknxD8QFGNKzXsWKRFtU3iN2G67C0FHvZ+Wpr6ShSToFlU8x
JJR+Jqp/pqQTd3Tvs15hOMEL9rsVpKLhdLp4YgpDxLnx9n91t+kezxbbo1sY
kqxne7jN2/TecGDfnA6B/FL0dd35HTryQ/OogREBk/6cur+0dmlZhPl2rBWB
pqzDtyPFuzSjX655woWAwfqPaXPmLPCf1eK6niVwgxOHg5NYIOngf+x5mUDy
WM+gXi8LxvYmbNTEERAWjcynmqmBoL73038yCPxp+oHnFwlqYBugFcMvIrAZ
o6MR/VwNjrAXqxorCAxVlqmdOsAGX5u2CxONBBzKWz38otnwU0P1odB2AtlX
zeb7W9nw6/C5IJ2XBIrfPtmlzUNgpKhr0xsjYJktVSWHItgJOnM9c5ZA3JRr
1C+/ITj090mJ2zqBubQw4U4LgginZ84ixgHmWQqn3xHIHkhK7jF2+XIgqa+d
6fIRV7jMWH/mws1ppptrqV7jdxUEqueTy7gDCE5Vi8/MbBCQyJ8MRM4gaFoR
hScrCXjnjRY+nkXwgtOZVsm4Q8j2V80hCOYP5r9kXBPjPp6+iMDUxbzAVEUg
XjG4WCJH8LPw/rudjBcKlLWTqwjc+YPTMsaBx/kxgnUE+zT6y3nbBNy+uqRs
2EBQJ+Wwwxlzlaucnm0EwvICR50dAunFhs/1mW5tHaSN1oy37OyzfFkYVLxt
kwDGbxJTuJNsDDd7ro2IGfvsfzj4HsaQ6DQvGGTc2dxVFEEwxNqYXN1lLN7R
M1ZyMIy+kQ147BI48J31JLyF4X2asRXLOJ9+/vAbTQynLy9ySxlrSBLDurUw
XLQyNutkbFA/1+KsjeFwt+/Sa8b/AcsE5X8=
          "]], 
         Line[{{2.507266029733041, 2.75}, {2.5088676972957598`, 2.75}, {
          2.52836088664397, 2.75}, {2.54785407599218, 2.75}, {
          2.5901425648697227`, 2.75}, {2.6296107149487957`, 2.75}, {
          2.672380975208991, 2.75}, {2.714371712997247, 2.75}, {
          2.7535421119870334`, 2.75}, {2.796014621157942, 2.75}, {
          2.835666791530381, 2.75}, {2.8745394394308814`, 2.75}, {
          2.916714197512504, 2.75}, {2.956068616795657, 2.75}, {
          2.978034287989665, 2.75}, {2.9999999591836737`, 2.75}}]}, 
        "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0], 
          Dashing[{Small, Small}]], 
         Line[CompressedData["
1:eJwVx3kwnGccwPG17+t534g71liNug2aqDiqsannlziCNo2rNFIRggpaidTR
IEkdXdJa0RCGjMjIjKR11FBVCUVcXYuKbFWjsUl1hUXWfayjb//4znc+xuHx
fpFsFovlyvT/z0uWVVgsOY6N8nf5J4EGT2Kel8mWY7sssXE1Y0uLqTikLMc7
DbTiC8bS2LFBVRU5Tt/IEyDGEWut33F15Ph3caSz1UUazqrz9e0t5VgjbLQq
Lp6GwCNc6ygfOabctOdlsTS4lbznJaqQ40YD299EETTc4myqGJ5cwF0jqY/H
AmhYMOxLnFxYwBucrZEz7jSYCw3SUwoW8WbpD6V1jjQMHZ6ibrosYT4RmmZh
RkPmO508I8kSts3jXwncR0PtuuaSff4y9hV/G1vDoqE+eMpDl7eCY2/Gea/M
UdDmNeQa+2wFT/hpxtuMU3B0x7rLI3cVj+snDZT2UTCIS+YK31rDqV5cP90m
ChyM8xrqhWs4N0ja21ZJgWbfylZA8jo+YV0trs6nYFUR/zpGbwOrdwmCnqZR
4LcSEkn1buBXGdnBvtEU8AUjyQkJm1jNzrfZLICCnsZgex9tBS7OWIwOPEpB
asVHCY2/KrDBZ6/Ddw9Q4MwND/4mbAsXtXMj9utTEB/0svuV5jZerHPpGVCm
IN1xZkCndRtHmt2x1VlEUFRBXG0I2cGmp44Zz0wgMB2+0fDn3l0ccmOMnSNC
8FDwdsGF2l2cbKO60t2CgLP6fbbMggX3OMuyXx4gyKFSyPB0FhgdljTWFSO4
NjEwqjXIAuPpLMqPj8Ch9O/ZLHMl+OP9Q7WmSQiemh3yCU1Vgt67y9clkQg2
EtXoS/1KMLStFeAZhGDsQaWStwkb7vfxbu/3ROByr/Nk8CU2+Hj7P7nljCD/
c/PZ4U42HDe7X754EEHZG8eEqlwCJPQHvHkjBAfyp7aunSeAXV5/JYGDIOVf
j4vN7QSMmLcaNu9BIMuOcdjpIKDgETzMY3zGQrDm+pgAjWDDsHOM3T8Vpw91
E3DbR9avzlh7+tx1qZCAjNQagygaQfXstUodMQFN/r71uhQCyVKL+MI0Ae5q
eYVXSQT+hc9LmmYIsF13uhzIuMeB/cmWjIByiWXMQcY1iV4v+fMEjLeMRT8j
EFxeG50vXyLgw/7wF06M54oV9ZPLBPwsseRqMD77rmGi9SoB0jWb01I2guNf
Ril+WifghN76diFjHcUyNbBNgOh0dNuiEgJ+mV6/9i4BvR16nkLGm7wjgo9Z
JJBS9vhdxi/SMnUm2SQk2X1l4ss4wKBq1IokIevRPrEl475WYWm8Mgm5feMF
LMa1O1rGCooEkzc1rH9kITC54zgJe0h40p6knMO4CJ+q+lqFhMZiLVkoY1qS
FiPaS0KZ6PlfTow5jbION1UShu2rNK0Y/wfiw8Yf
          "]], 
         Line[{{2.507266029733041, 2.75}, {2.5088676972957598`, 2.75}, {
          2.52836088664397, 2.75}, {2.54785407599218, 2.75}, {
          2.5901425648697227`, 2.75}, {2.6296107149487957`, 2.75}, {
          2.672380975208991, 2.75}, {2.714371712997247, 2.75}, {
          2.7535421119870334`, 2.75}, {2.796014621157942, 2.75}, {
          2.835666791530381, 2.75}, {2.8745394394308814`, 2.75}, {
          2.916714197512504, 2.75}, {2.956068616795657, 2.75}, {
          2.978034287989665, 2.75}, {2.9999999591836737`, 2.75}}]}, 
        "Charting`Private`Tag#2"], {}}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{1, 3}, {2.443902504997093, 3.056097495002907}}, 
       "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {1.0000000000000022`, 2.4439025049970984`}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0], 
          Dashing[{Small, Small}]], 
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0.577523, 0.389181, 0.0897993]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{1.0000000000000022`, 2.4439025049970984`},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{
    GeometricTransformationBox[
     InsetBox[
      BoxData[
       FormBox[
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox["\"Efficiency Obtained\"", FontFamily -> "Times", 10, 
             GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
         
         Text[
          Style["Efficiency Obtained", FontFamily -> "Times", 10, 
           GrayLevel[0]]]], TraditionalForm]], {2.4, 0.23}], {{{0, -1}, {1, 
      0}}, Center}], {
     Directive[
      GrayLevel[0.5]], 
     Dashing[{0, Small, Small, Small}], 
     TagBox[
      ConicHullRegionBox[{{2.5066282746310002`, 0.1}, {2.5066282746310002`, 
       0.2}}], "InfiniteLine"]}},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox["\"Climate Exposure \\n Held by Investors\"", HoldForm], 
      TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"Informativeness \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), OverscriptBox[\
\\(\[Beta]\\), \\(^\\)]]\\)\"", HoldForm], TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->250,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{1, 3}, {2.443902504997093, 3.056097495002907}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.90069105253341*^9, {3.900691089595063*^9, 3.900691097553112*^9}, {
   3.900691134933299*^9, 3.900691157794691*^9}, {3.900691371031012*^9, 
   3.900691392275131*^9}, {3.900845997601701*^9, 3.900846007646213*^9}, {
   3.9008510396944237`*^9, 3.900851044103736*^9}, 3.900851170609069*^9, {
   3.900851316724598*^9, 3.900851323632111*^9}, 3.900851397721428*^9, 
   3.900851669432652*^9, {3.900851998076948*^9, 3.900852008106591*^9}, 
   3.900862815344816*^9, 3.9008628459057407`*^9, {3.900862947099874*^9, 
   3.900862957186996*^9}, 3.900863026901701*^9, {3.900869875362298*^9, 
   3.900869881842367*^9}, {3.900880935819271*^9, 3.900880955641183*^9}, {
   3.9014591917601337`*^9, 3.9014592147979403`*^9}, 3.90154953782967*^9, 
   3.901549976667787*^9, 3.972601047959819*^9, 3.972652826848938*^9, 
   3.972653155190061*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"9ea91e50-e42f-4bd0-8e1a-bec998032332"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "-", 
        RowBox[{"NCDF", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"eq", "[", 
            RowBox[{
            "\[Mu]\[Beta]", ",", "xp", ",", "\[Sigma]C", ",", "\[Sigma]M", ",",
              "zG", ",", "zB", ",", "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "-",
            "\[Mu]\[Beta]"}], "xp"], "]"}]}], ",", 
       RowBox[{"NCDF", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"eq", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "xp", ",", "\[Sigma]C", ",", "\[Sigma]M", ",",
             "zG", ",", "zB", ",", "\[Kappa]", ",", "\[Lambda]G"}], "]"}], "-",
           "\[Mu]\[Beta]"}], "xp"], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"xp", ",", "1", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0.577523", ",", " ", "0.389181", ",", " ", "0.0897993"}], 
           "]"}], ",", "Solid"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", " ", "0.582223", ",", " ", "0"}], "]"}], ",", 
          "Dashed"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", "DotDashed"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<Informativeness \!\(\*SubscriptBox[\(\[Sigma]\), \
OverscriptBox[\(\[Beta]\), \(^\)]]\)\>\"", 
        ",", "\"\<% Market Held \\n by Investors\>\""}], "}"}]}], ",", 
     RowBox[{"Epilog", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
        RowBox[{"InfiniteLine", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"effval", "[", 
              RowBox[{
              "\[Mu]\[Beta]", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
               "\[Lambda]G"}], "]"}], ",", ".1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"effval", "[", 
              RowBox[{
              "\[Mu]\[Beta]", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
               "\[Lambda]G"}], "]"}], ",", ".2"}], "}"}]}], "}"}], "]"}]}], 
       "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.900690277211825*^9, {3.900691163374258*^9, 3.90069128032996*^9}, {
   3.9006914033114843`*^9, 3.900691427396084*^9}, {3.900691462891245*^9, 
   3.900691519777272*^9}, {3.900691689519538*^9, 3.900691689665165*^9}, {
   3.900695322176342*^9, 3.900695324547522*^9}, {3.900846138989327*^9, 
   3.900846148968609*^9}, {3.900862762722148*^9, 3.900862765298551*^9}, {
   3.900868508255588*^9, 3.900868532224655*^9}, 3.90086988450126*^9, 
   3.90145918277013*^9, 3.901459216580454*^9, {3.901549510720113*^9, 
   3.901549520633005*^9}, 3.901549984018337*^9, {3.972601045193534*^9, 
   3.972601052378685*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"2f649c72-a5d9-4793-a28e-dcf26637abad"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.577523, 0.389181, 0.0897993], AbsoluteThickness[1.6], 
         Opacity[1.], CapForm["Butt"], LineBox[CompressedData["
1:eJwVjH841HcAx+/ue7ruqEmYizIVT6xfhrQ074/EqmdP1KyV+ZVWhuVM81B4
ao+K1IjFTEv3jEdbK+1y5CmERubnapMfbfq4335kZ4eju87sj9fzel7/vJyi
RfuPclgslv8C/zuWTglYLC2u+md0eZhrsIuZ8MnkaLF0lVdfkECDdS7qzxeZ
aXHM+7A2nq+BKn6g20KgxVdn+fvKeRp8qq8vEFprcanPr8OGq0HU0qwVHuu0
OP5mtthgVOPAdqHbsWAtDoYp7z2dUGNn8Xu7O8VajEbYy24/VaPI5pXAMWgS
Wt8iU0KRGpOObcmKyUlsKFHU2kaq4dy+MiM1/1/cPFmmL3VVo+ddNe8bXx2y
DyQ3iLQqZG5p9nmL6kDj//r50QMVKmctdR55U3AIat8XlqmCJFQdaOszDTj8
nl30gQoNu3v8459Po22xm9+0UAU/k9uvgRdm4KJU5p2UK9GN4pdX3tZjj76o
cPwXJTydvq6StOshUDqVF55WwrJt2hiSMovz0k+We+1RYsYg+ifObg6Xwwru
pdgpsX86/Cjv8RzeqVqyJlumQFbuHylJSa8gD6gPSb2tQKs01CPYyoDRzdO5
XWkKpIk/SpI+NGCkbm9wRYAC24TRoRcPG+F/rUDabKWA6GNZi8byNW4lhUe5
Ppcjw2u0y7r+NYayQoT8cjkKxczpqnAT0n4MTLBMlGPNk8tV/ebzOJVUnWPp
LceD3E35iZXzKIhMubmZLYfNzM1zYy4s4l2ij7nfIUM2L5UbncEiohq11HhZ
hjMvuvqWdbPIxlEbRcohGTxL/h4/68wmg4P3mYsOMvy51j04Mo1NquJixfMv
hjGXvGTxiQ422XEkmj1WMYyBn8rYe1ZzyPrvG57FfTYM3/LmoNATHLJtl85U
uGEYeQnO40+aOSShUVN7QUdx1X5Hu4WQIS6/mUl8pBTr89TGM7EM+c5oNziX
SpGqDPyitpEhqeVLGiu2Uoydi/M0NTGkKaYuvcabIsIlV+//iCF2k/xtrVso
AmJ6M3paGCLpvFaj9KSwGjmSo2pnSPawqHatO8Wt8TNl1r0M6R6dUfzgSkF1
93sTRxhSs3b/cvEKig+vDBXXjDLk8Q7x5B0hRasnJ8w4xpCCs4lPHtpR3E7e
LcuaYMiizqrCF7YUp/R9E6U6hsw3XnR3XE7x8luDRDHFEM4BicMmK4qorY7J
bjMMOVWdz8cyivdPHjNUzzJEs+q6JuINCmvDFK/rNUNkuXfrSs0psq7adVjN
L/TxL2sqBRSvfLbnHmRxyZTY9W4Dn2I4PdNaweESkW/OnSEeRcjKG32uXC6x
bPGXTCyiaKtvLxGZcYlbv0W1yYyi0rTMycDjEttnI82ruBSrr3spCJ9LivvN
uzYyFIU4dOO8YOFfdGjAl0OxmKbHdZpzSY79oHovm8JGOta004JLaLJq5wyL
4j9ZbxFD
          "]], 
         LineBox[{{2.507266029733041, 0.5}, {2.5088676972957598`, 0.5}, {
          2.52836088664397, 0.5}, {2.54785407599218, 0.5}, {
          2.5901425648697227`, 0.5}, {2.6296107149487957`, 0.5}, {
          2.672380975208991, 0.5}, {2.714371712997247, 0.5}, {
          2.7535421119870334`, 0.5}, {2.796014621157942, 0.5}, {
          2.835666791530381, 0.5}, {2.8745394394308814`, 0.5}, {
          2.916714197512504, 0.5}, {2.956068616795657, 0.5}, {
          2.978034287989665, 0.5}, {2.9999999591836737`, 0.5}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ], 
       TagBox[
        {RGBColor[0, 0.582223, 0], AbsoluteThickness[1.6], Opacity[1.], 
         Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData["
1:eJwVxX081HcAB/BzvwuT2jEWtYYTr6IHe3nYcurzDZEexkvNNqspix60NGWZ
EiMPy6vzFBkxxZaW7CVi1SK3QufhuDtxnr54WcTh5Dx1Hrb98X69zfyDvQPY
LBbL5T//f6JXpcNiKZE2oSOykYqxixnjx7CVEMVb5z99KcZ6y8FTmsuUOM67
sN2rQ4xXQfImXR0l5kflj0/3iXF05kmqsYESkpuzksJxMQ6vjF9tu14Jy5bx
Sm3NZvg4GVsFeinh5W6f7MtrhmvmNo+GPCU2Ob/gF/g2I8PwrY6J5wTMoqVs
nrQZEyZ1oQMTE/it3kEg2dECC9HaiLCUNyjSfcgVFrVAvHVQK237JJTehjGm
JhLEOAj5pr2TIOvdC8MSJCie5U7aJqnw4kjQQfc5CUp8B93e508hutZvTBIo
RaWH2CWocwpnxu5GGDZIsWPR6pnbT9N4YG/Xq7tVhiZkjl6znsEpPYnMMlcG
O7OrpSWiGYzY/1UhY7WCWzc1f+D8LFQZu+TpQa2YVgePnzSaQ59bZzJX3Arv
qUMBWrVzuPHzwMNxx5eIF0jPh4S8heO5WJ93f32JmjJfWy99NTblGvYf1W7D
hbzPQsqq1Ngc5+9Xeq4Njsb+volH5hH+vCMjvKMNwZ/3Px/iLuDO6p2459GO
CPvhRoMnC3BV+jSOVrQjPY+JLD20CJ0/QsypiRzmLcml7cuXsGJN+nBPihyP
BVtSzhQvoYvo3c1dkMNw+vfYEUsWSa3n2iQe70CCVhjHP4JFeGk2GZo9HYii
jW16TSxSYC37mLuvE3ZZ3YrLFhpk7+4rs69rOiFb95GX3wUNkmW1qYpFujAX
ukL7bL0GubiVv7Dhfhfkd/I1dvPYpLA22ttqSze2Fwg9fc+yydVgY7asoBtJ
py0ULUI2MY/cLFAY9SB7jbNI15ghpd+qchKu92Bj0uB81AmGNGk27dFdSRH2
j9t3fz5liF7FQOR9AcVI7Em7xWqGXLKJ10xLpvjaUjDj8jdDxGsViWdTKXYe
a40QP2dIbuCzVLsMCv3X31x5JWLIhJNpUnkORZEiKt+glSEBVvoOj4ooeicf
tZ55zZC08q/kVSKK/dd6MsuHGRISXvVBXgNFjR374PwIQ7qnPzwU1URxL9Sj
P36MIZPHMmVEQhE+0zaWO8kQ9qWhG9VyitHr6pIBFUPm9+fU3OykOPyJSajV
NEOWp3cpfuymcP8hUP1gliE2wurNzn0UBmqVVuMCQ/j9WXHCIYr4bKN6/SWG
bFu3Ku3WMMVbvpPgCxaHrKosyo5WUPRdjDEYYHMIL2Ykz1lJcWDt7bYNHA7p
DQ3L4b2hqHsiygpexiFFnq/S2SqK4kU9M7UWh0j3bwwXzlDwfrEfIO9wSPOn
QwG35ijS8eXtOB0OMZbs3RetptDuvXiyYTmHKOr22PgvUBiWjVS76nIIMbD9
/r1Fin8Bn0gUhg==
          "]], 
         LineBox[{{2.507266029733041, 0.5}, {2.5088676972957598`, 0.5}, {
          2.52836088664397, 0.5}, {2.54785407599218, 0.5}, {
          2.5901425648697227`, 0.5}, {2.6296107149487957`, 0.5}, {
          2.672380975208991, 0.5}, {2.714371712997247, 0.5}, {
          2.7535421119870334`, 0.5}, {2.796014621157942, 0.5}, {
          2.835666791530381, 0.5}, {2.8745394394308814`, 0.5}, {
          2.916714197512504, 0.5}, {2.956068616795657, 0.5}, {
          2.978034287989665, 0.5}, {2.9999999591836737`, 0.5}}]},
        Annotation[#, "Charting`Private`Tag#2"]& ], {}}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0.577523, 0.389181, 0.0897993]], 
             Line[CompressedData["
1:eJwVjH841HcAx+/ue7ruqEmYizIVT6xfhrQ074/EqmdP1KyV+ZVWhuVM81B4
ao+K1IjFTEv3jEdbK+1y5CmERubnapMfbfq4335kZ4eju87sj9fzel7/vJyi
RfuPclgslv8C/zuWTglYLC2u+md0eZhrsIuZ8MnkaLF0lVdfkECDdS7qzxeZ
aXHM+7A2nq+BKn6g20KgxVdn+fvKeRp8qq8vEFprcanPr8OGq0HU0qwVHuu0
OP5mtthgVOPAdqHbsWAtDoYp7z2dUGNn8Xu7O8VajEbYy24/VaPI5pXAMWgS
Wt8iU0KRGpOObcmKyUlsKFHU2kaq4dy+MiM1/1/cPFmmL3VVo+ddNe8bXx2y
DyQ3iLQqZG5p9nmL6kDj//r50QMVKmctdR55U3AIat8XlqmCJFQdaOszDTj8
nl30gQoNu3v8459Po22xm9+0UAU/k9uvgRdm4KJU5p2UK9GN4pdX3tZjj76o
cPwXJTydvq6StOshUDqVF55WwrJt2hiSMovz0k+We+1RYsYg+ifObg6Xwwru
pdgpsX86/Cjv8RzeqVqyJlumQFbuHylJSa8gD6gPSb2tQKs01CPYyoDRzdO5
XWkKpIk/SpI+NGCkbm9wRYAC24TRoRcPG+F/rUDabKWA6GNZi8byNW4lhUe5
Ppcjw2u0y7r+NYayQoT8cjkKxczpqnAT0n4MTLBMlGPNk8tV/ebzOJVUnWPp
LceD3E35iZXzKIhMubmZLYfNzM1zYy4s4l2ij7nfIUM2L5UbncEiohq11HhZ
hjMvuvqWdbPIxlEbRcohGTxL/h4/68wmg4P3mYsOMvy51j04Mo1NquJixfMv
hjGXvGTxiQ422XEkmj1WMYyBn8rYe1ZzyPrvG57FfTYM3/LmoNATHLJtl85U
uGEYeQnO40+aOSShUVN7QUdx1X5Hu4WQIS6/mUl8pBTr89TGM7EM+c5oNziX
SpGqDPyitpEhqeVLGiu2Uoydi/M0NTGkKaYuvcabIsIlV+//iCF2k/xtrVso
AmJ6M3paGCLpvFaj9KSwGjmSo2pnSPawqHatO8Wt8TNl1r0M6R6dUfzgSkF1
93sTRxhSs3b/cvEKig+vDBXXjDLk8Q7x5B0hRasnJ8w4xpCCs4lPHtpR3E7e
LcuaYMiizqrCF7YUp/R9E6U6hsw3XnR3XE7x8luDRDHFEM4BicMmK4qorY7J
bjMMOVWdz8cyivdPHjNUzzJEs+q6JuINCmvDFK/rNUNkuXfrSs0psq7adVjN
L/TxL2sqBRSvfLbnHmRxyZTY9W4Dn2I4PdNaweESkW/OnSEeRcjKG32uXC6x
bPGXTCyiaKtvLxGZcYlbv0W1yYyi0rTMycDjEttnI82ruBSrr3spCJ9LivvN
uzYyFIU4dOO8YOFfdGjAl0OxmKbHdZpzSY79oHovm8JGOta004JLaLJq5wyL
4j9ZbxFD
              "]], 
             
             Line[{{2.507266029733041, 0.5}, {2.5088676972957598`, 0.5}, {
              2.52836088664397, 0.5}, {2.54785407599218, 0.5}, {
              2.5901425648697227`, 0.5}, {2.6296107149487957`, 0.5}, {
              2.672380975208991, 0.5}, {2.714371712997247, 0.5}, {
              2.7535421119870334`, 0.5}, {2.796014621157942, 0.5}, {
              2.835666791530381, 0.5}, {2.8745394394308814`, 0.5}, {
              2.916714197512504, 0.5}, {2.956068616795657, 0.5}, {
              2.978034287989665, 0.5}, {2.9999999591836737`, 0.5}}]}, 
            "Charting`Private`Tag#1"], 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0], 
              Dashing[{Small, Small}]], 
             Line[CompressedData["
1:eJwVxX081HcAB/BzvwuT2jEWtYYTr6IHe3nYcurzDZEexkvNNqspix60NGWZ
EiMPy6vzFBkxxZaW7CVi1SK3QufhuDtxnr54WcTh5Dx1Hrb98X69zfyDvQPY
LBbL5T//f6JXpcNiKZE2oSOykYqxixnjx7CVEMVb5z99KcZ6y8FTmsuUOM67
sN2rQ4xXQfImXR0l5kflj0/3iXF05kmqsYESkpuzksJxMQ6vjF9tu14Jy5bx
Sm3NZvg4GVsFeinh5W6f7MtrhmvmNo+GPCU2Ob/gF/g2I8PwrY6J5wTMoqVs
nrQZEyZ1oQMTE/it3kEg2dECC9HaiLCUNyjSfcgVFrVAvHVQK237JJTehjGm
JhLEOAj5pr2TIOvdC8MSJCie5U7aJqnw4kjQQfc5CUp8B93e508hutZvTBIo
RaWH2CWocwpnxu5GGDZIsWPR6pnbT9N4YG/Xq7tVhiZkjl6znsEpPYnMMlcG
O7OrpSWiGYzY/1UhY7WCWzc1f+D8LFQZu+TpQa2YVgePnzSaQ59bZzJX3Arv
qUMBWrVzuPHzwMNxx5eIF0jPh4S8heO5WJ93f32JmjJfWy99NTblGvYf1W7D
hbzPQsqq1Ngc5+9Xeq4Njsb+volH5hH+vCMjvKMNwZ/3Px/iLuDO6p2459GO
CPvhRoMnC3BV+jSOVrQjPY+JLD20CJ0/QsypiRzmLcml7cuXsGJN+nBPihyP
BVtSzhQvoYvo3c1dkMNw+vfYEUsWSa3n2iQe70CCVhjHP4JFeGk2GZo9HYii
jW16TSxSYC37mLuvE3ZZ3YrLFhpk7+4rs69rOiFb95GX3wUNkmW1qYpFujAX
ukL7bL0GubiVv7Dhfhfkd/I1dvPYpLA22ttqSze2Fwg9fc+yydVgY7asoBtJ
py0ULUI2MY/cLFAY9SB7jbNI15ghpd+qchKu92Bj0uB81AmGNGk27dFdSRH2
j9t3fz5liF7FQOR9AcVI7Em7xWqGXLKJ10xLpvjaUjDj8jdDxGsViWdTKXYe
a40QP2dIbuCzVLsMCv3X31x5JWLIhJNpUnkORZEiKt+glSEBVvoOj4ooeicf
tZ55zZC08q/kVSKK/dd6MsuHGRISXvVBXgNFjR374PwIQ7qnPzwU1URxL9Sj
P36MIZPHMmVEQhE+0zaWO8kQ9qWhG9VyitHr6pIBFUPm9+fU3OykOPyJSajV
NEOWp3cpfuymcP8hUP1gliE2wurNzn0UBmqVVuMCQ/j9WXHCIYr4bKN6/SWG
bFu3Ku3WMMVbvpPgCxaHrKosyo5WUPRdjDEYYHMIL2Ykz1lJcWDt7bYNHA7p
DQ3L4b2hqHsiygpexiFFnq/S2SqK4kU9M7UWh0j3bwwXzlDwfrEfIO9wSPOn
QwG35ijS8eXtOB0OMZbs3RetptDuvXiyYTmHKOr22PgvUBiWjVS76nIIMbD9
/r1Fin8Bn0gUhg==
              "]], 
             
             Line[{{2.507266029733041, 0.5}, {2.5088676972957598`, 0.5}, {
              2.52836088664397, 0.5}, {2.54785407599218, 0.5}, {
              2.5901425648697227`, 0.5}, {2.6296107149487957`, 0.5}, {
              2.672380975208991, 0.5}, {2.714371712997247, 0.5}, {
              2.7535421119870334`, 0.5}, {2.796014621157942, 0.5}, {
              2.835666791530381, 0.5}, {2.8745394394308814`, 0.5}, {
              2.916714197512504, 0.5}, {2.956068616795657, 0.5}, {
              2.978034287989665, 0.5}, {2.9999999591836737`, 0.5}}]}, 
            "Charting`Private`Tag#2"], {}}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{1, 3}, {0.24863252511375986`, 
             0.7513674748862401}}, "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {1.0000000000000022`, 0.2486325251137604}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0.582223, 0], 
              Dashing[{Small, Small}]], 
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              RGBColor[0.577523, 0.389181, 0.0897993]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{1, 3}, {0.24863252511375986`, 0.7513674748862401}},
           "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {1.0000000000000022`, 0.2486325251137604}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0.582223, 0], 
             Dashing[{Small, Small}]], 
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             RGBColor[0.577523, 0.389181, 0.0897993]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0.577523, 0.389181, 0.0897993]], 
         Line[CompressedData["
1:eJwVjH841HcAx+/ue7ruqEmYizIVT6xfhrQ074/EqmdP1KyV+ZVWhuVM81B4
ao+K1IjFTEv3jEdbK+1y5CmERubnapMfbfq4335kZ4eju87sj9fzel7/vJyi
RfuPclgslv8C/zuWTglYLC2u+md0eZhrsIuZ8MnkaLF0lVdfkECDdS7qzxeZ
aXHM+7A2nq+BKn6g20KgxVdn+fvKeRp8qq8vEFprcanPr8OGq0HU0qwVHuu0
OP5mtthgVOPAdqHbsWAtDoYp7z2dUGNn8Xu7O8VajEbYy24/VaPI5pXAMWgS
Wt8iU0KRGpOObcmKyUlsKFHU2kaq4dy+MiM1/1/cPFmmL3VVo+ddNe8bXx2y
DyQ3iLQqZG5p9nmL6kDj//r50QMVKmctdR55U3AIat8XlqmCJFQdaOszDTj8
nl30gQoNu3v8459Po22xm9+0UAU/k9uvgRdm4KJU5p2UK9GN4pdX3tZjj76o
cPwXJTydvq6StOshUDqVF55WwrJt2hiSMovz0k+We+1RYsYg+ifObg6Xwwru
pdgpsX86/Cjv8RzeqVqyJlumQFbuHylJSa8gD6gPSb2tQKs01CPYyoDRzdO5
XWkKpIk/SpI+NGCkbm9wRYAC24TRoRcPG+F/rUDabKWA6GNZi8byNW4lhUe5
Ppcjw2u0y7r+NYayQoT8cjkKxczpqnAT0n4MTLBMlGPNk8tV/ebzOJVUnWPp
LceD3E35iZXzKIhMubmZLYfNzM1zYy4s4l2ij7nfIUM2L5UbncEiohq11HhZ
hjMvuvqWdbPIxlEbRcohGTxL/h4/68wmg4P3mYsOMvy51j04Mo1NquJixfMv
hjGXvGTxiQ422XEkmj1WMYyBn8rYe1ZzyPrvG57FfTYM3/LmoNATHLJtl85U
uGEYeQnO40+aOSShUVN7QUdx1X5Hu4WQIS6/mUl8pBTr89TGM7EM+c5oNziX
SpGqDPyitpEhqeVLGiu2Uoydi/M0NTGkKaYuvcabIsIlV+//iCF2k/xtrVso
AmJ6M3paGCLpvFaj9KSwGjmSo2pnSPawqHatO8Wt8TNl1r0M6R6dUfzgSkF1
93sTRxhSs3b/cvEKig+vDBXXjDLk8Q7x5B0hRasnJ8w4xpCCs4lPHtpR3E7e
LcuaYMiizqrCF7YUp/R9E6U6hsw3XnR3XE7x8luDRDHFEM4BicMmK4qorY7J
bjMMOVWdz8cyivdPHjNUzzJEs+q6JuINCmvDFK/rNUNkuXfrSs0psq7adVjN
L/TxL2sqBRSvfLbnHmRxyZTY9W4Dn2I4PdNaweESkW/OnSEeRcjKG32uXC6x
bPGXTCyiaKtvLxGZcYlbv0W1yYyi0rTMycDjEttnI82ruBSrr3spCJ9LivvN
uzYyFIU4dOO8YOFfdGjAl0OxmKbHdZpzSY79oHovm8JGOta004JLaLJq5wyL
4j9ZbxFD
          "]], 
         Line[{{2.507266029733041, 0.5}, {2.5088676972957598`, 0.5}, {
          2.52836088664397, 0.5}, {2.54785407599218, 0.5}, {
          2.5901425648697227`, 0.5}, {2.6296107149487957`, 0.5}, {
          2.672380975208991, 0.5}, {2.714371712997247, 0.5}, {
          2.7535421119870334`, 0.5}, {2.796014621157942, 0.5}, {
          2.835666791530381, 0.5}, {2.8745394394308814`, 0.5}, {
          2.916714197512504, 0.5}, {2.956068616795657, 0.5}, {
          2.978034287989665, 0.5}, {2.9999999591836737`, 0.5}}]}, 
        "Charting`Private`Tag#1"], 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0], 
          Dashing[{Small, Small}]], 
         Line[CompressedData["
1:eJwVxX081HcAB/BzvwuT2jEWtYYTr6IHe3nYcurzDZEexkvNNqspix60NGWZ
EiMPy6vzFBkxxZaW7CVi1SK3QufhuDtxnr54WcTh5Dx1Hrb98X69zfyDvQPY
LBbL5T//f6JXpcNiKZE2oSOykYqxixnjx7CVEMVb5z99KcZ6y8FTmsuUOM67
sN2rQ4xXQfImXR0l5kflj0/3iXF05kmqsYESkpuzksJxMQ6vjF9tu14Jy5bx
Sm3NZvg4GVsFeinh5W6f7MtrhmvmNo+GPCU2Ob/gF/g2I8PwrY6J5wTMoqVs
nrQZEyZ1oQMTE/it3kEg2dECC9HaiLCUNyjSfcgVFrVAvHVQK237JJTehjGm
JhLEOAj5pr2TIOvdC8MSJCie5U7aJqnw4kjQQfc5CUp8B93e508hutZvTBIo
RaWH2CWocwpnxu5GGDZIsWPR6pnbT9N4YG/Xq7tVhiZkjl6znsEpPYnMMlcG
O7OrpSWiGYzY/1UhY7WCWzc1f+D8LFQZu+TpQa2YVgePnzSaQ59bZzJX3Arv
qUMBWrVzuPHzwMNxx5eIF0jPh4S8heO5WJ93f32JmjJfWy99NTblGvYf1W7D
hbzPQsqq1Ngc5+9Xeq4Njsb+volH5hH+vCMjvKMNwZ/3Px/iLuDO6p2459GO
CPvhRoMnC3BV+jSOVrQjPY+JLD20CJ0/QsypiRzmLcml7cuXsGJN+nBPihyP
BVtSzhQvoYvo3c1dkMNw+vfYEUsWSa3n2iQe70CCVhjHP4JFeGk2GZo9HYii
jW16TSxSYC37mLuvE3ZZ3YrLFhpk7+4rs69rOiFb95GX3wUNkmW1qYpFujAX
ukL7bL0GubiVv7Dhfhfkd/I1dvPYpLA22ttqSze2Fwg9fc+yydVgY7asoBtJ
py0ULUI2MY/cLFAY9SB7jbNI15ghpd+qchKu92Bj0uB81AmGNGk27dFdSRH2
j9t3fz5liF7FQOR9AcVI7Em7xWqGXLKJ10xLpvjaUjDj8jdDxGsViWdTKXYe
a40QP2dIbuCzVLsMCv3X31x5JWLIhJNpUnkORZEiKt+glSEBVvoOj4ooeicf
tZ55zZC08q/kVSKK/dd6MsuHGRISXvVBXgNFjR374PwIQ7qnPzwU1URxL9Sj
P36MIZPHMmVEQhE+0zaWO8kQ9qWhG9VyitHr6pIBFUPm9+fU3OykOPyJSajV
NEOWp3cpfuymcP8hUP1gliE2wurNzn0UBmqVVuMCQ/j9WXHCIYr4bKN6/SWG
bFu3Ku3WMMVbvpPgCxaHrKosyo5WUPRdjDEYYHMIL2Ykz1lJcWDt7bYNHA7p
DQ3L4b2hqHsiygpexiFFnq/S2SqK4kU9M7UWh0j3bwwXzlDwfrEfIO9wSPOn
QwG35ijS8eXtOB0OMZbs3RetptDuvXiyYTmHKOr22PgvUBiWjVS76nIIMbD9
/r1Fin8Bn0gUhg==
          "]], 
         Line[{{2.507266029733041, 0.5}, {2.5088676972957598`, 0.5}, {
          2.52836088664397, 0.5}, {2.54785407599218, 0.5}, {
          2.5901425648697227`, 0.5}, {2.6296107149487957`, 0.5}, {
          2.672380975208991, 0.5}, {2.714371712997247, 0.5}, {
          2.7535421119870334`, 0.5}, {2.796014621157942, 0.5}, {
          2.835666791530381, 0.5}, {2.8745394394308814`, 0.5}, {
          2.916714197512504, 0.5}, {2.956068616795657, 0.5}, {
          2.978034287989665, 0.5}, {2.9999999591836737`, 0.5}}]}, 
        "Charting`Private`Tag#2"], {}}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{1, 3}, {0.24863252511375986`, 0.7513674748862401}}, 
       "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {1.0000000000000022`, 0.2486325251137604}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0.582223, 0], 
          Dashing[{Small, Small}]], 
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          RGBColor[0.577523, 0.389181, 0.0897993]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{1.0000000000000022`, 0.2486325251137604},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{
    Directive[
     GrayLevel[0.5]], 
    Dashing[{0, Small, Small, Small}], 
    TagBox[
     ConicHullRegionBox[{{2.5066282746310002`, 0.1}, {2.5066282746310002`, 
      0.2}}], "InfiniteLine"]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox["\"% Market Held \\n by Investors\"", HoldForm], 
      TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"Informativeness \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), OverscriptBox[\
\\(\[Beta]\\), \\(^\\)]]\\)\"", HoldForm], TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->250,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{1, 3}, {0.24863252511375986`, 0.7513674748862401}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.900691520303573*^9, 3.900691690994771*^9, 3.900846149663838*^9, 
   3.90085201859011*^9, 3.900852124733844*^9, 3.900852327720063*^9, {
   3.900862763136513*^9, 3.900862766341908*^9}, 3.900862854700736*^9, 
   3.900862959942661*^9, {3.900868508648612*^9, 3.900868532804994*^9}, {
   3.900869873675384*^9, 3.90086988519911*^9}, {3.900880937004825*^9, 
   3.900880957645128*^9}, 3.901459183828913*^9, 3.9014592169752703`*^9, 
   3.901549522415317*^9, 3.9015499844672337`*^9, 3.972601053132495*^9, 
   3.972652828344529*^9, 3.972653157028778*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"0b1bfd58-4be0-4739-adb5-8fc3f5dcfe7b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 5", "Section",
 CellChangeTimes->{{3.972601055716448*^9, 
  3.9726010562568617`*^9}},ExpressionUUID->"d4e75caf-19f7-4499-998b-\
6d4c19c1526b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"PFn", "[", 
   RowBox[{
   "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",", 
    "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", "\[Mu]C_", ",",
     "\[Mu]M_", ",", "\[Rho]_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Eq", ",", "T"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Eq", "=", 
      RowBox[{"T", "/.", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"T", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", "\[Kappa]", " ", 
               RowBox[{"gL", "[", 
                RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], 
                "]"}]}], "+", "zG", "-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", "\[Kappa]", " ", 
                 RowBox[{"gU", "[", 
                  RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], 
                  "]"}]}], "+", "zB"}], ")"}]}], ")"}], 
            SuperscriptBox["\[Sigma]C", "2"]}], "-", 
           RowBox[{"2", "\[Kappa]", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", 
               RowBox[{"NCDF", "[", 
                FractionBox[
                 RowBox[{"T", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
                "]"}]}]}], ")"}], 
            SuperscriptBox["\[Sigma]M", "2"]}]}], ")"}], ",", 
         RowBox[{"{", 
          RowBox[{"T", ",", 
           RowBox[{"-", ".1"}]}], "}"}]}], "]"}]}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"zG", "+", 
         RowBox[{"2", "\[Kappa]", "*", 
          RowBox[{"gL", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Mu]\[Beta]"}], 
           "]"}]}], "-", "zB", "-", 
         RowBox[{"2", "\[Kappa]", "*", 
          RowBox[{"gU", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Mu]\[Beta]"}], 
           "]"}]}]}], ">", "0"}], ",", "\n", 
       RowBox[{
        RowBox[{"P", "[", "\[Beta]_", "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Boole", "[", 
           RowBox[{"\[Beta]", ">", "Eq"}], "]"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Beta]", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
            RowBox[{"\[Rho]", "*", "\[Beta]", "*", 
             RowBox[{"(", 
              RowBox[{"zB", "+", 
               RowBox[{"2", "\[Kappa]", "*", 
                RowBox[{"gU", "[", 
                 RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "Eq"}], 
                 "]"}]}]}], ")"}], 
             SuperscriptBox["\[Sigma]C", "2"]}], "-", 
            RowBox[{"2", "*", "\[Rho]", "*", "\[Kappa]", "*", 
             SuperscriptBox["\[Sigma]M", "2"], "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"NCDF", "[", 
                FractionBox[
                 RowBox[{"Eq", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
                "]"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Boole", "[", 
           RowBox[{"\[Beta]", "<", "Eq"}], "]"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Beta]", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
            RowBox[{"\[Rho]", "*", "\[Beta]", "*", 
             RowBox[{"(", 
              RowBox[{"zG", "+", 
               RowBox[{"2", "\[Kappa]", "*", 
                RowBox[{"gL", "[", 
                 RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "Eq"}], 
                 "]"}]}]}], ")"}], 
             SuperscriptBox["\[Sigma]C", "2"]}], "-", 
            RowBox[{"2", "*", "\[Rho]", "*", "\[Kappa]", "*", 
             SuperscriptBox["\[Sigma]M", "2"], "*", 
             RowBox[{"NCDF", "[", 
              FractionBox[
               RowBox[{"Eq", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
              "]"}]}]}], ")"}]}]}]}], ",", 
       RowBox[{
        RowBox[{"P", "[", "\[Beta]_", "]"}], "=", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Beta]", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
          RowBox[{"\[Rho]", "*", "\[Beta]", "*", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"zB", "+", "zG"}], "2"], "+", 
             RowBox[{"\[Kappa]", "*", "\[Mu]\[Beta]"}]}], ")"}], 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"\[Rho]", "*", "\[Kappa]", "*", 
           SuperscriptBox["\[Sigma]M", "2"]}]}], ")"}]}]}], "]"}]}]}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"OverallP", "[", 
   RowBox[{
   "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",", 
    "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", "\[Mu]C_", ",",
     "\[Mu]M_", ",", "\[Rho]_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Eq", ",", "T", ",", "P", ",", "effval"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Eq", "=", 
      RowBox[{"T", "/.", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"T", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", "\[Kappa]", " ", 
               RowBox[{"gL", "[", 
                RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], 
                "]"}]}], "+", "zG", "-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", "\[Kappa]", " ", 
                 RowBox[{"gU", "[", 
                  RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], 
                  "]"}]}], "+", "zB"}], ")"}]}], ")"}], 
            SuperscriptBox["\[Sigma]C", "2"]}], "-", 
           RowBox[{"2", "\[Kappa]", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", 
               RowBox[{"NCDF", "[", 
                FractionBox[
                 RowBox[{"T", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
                "]"}]}]}], ")"}], 
            SuperscriptBox["\[Sigma]M", "2"]}]}], ")"}], ",", 
         RowBox[{"{", 
          RowBox[{"T", ",", 
           RowBox[{"-", ".1"}]}], "}"}]}], "]"}]}]}], ";", "\n", 
     RowBox[{
      RowBox[{"P", "[", "\[Beta]_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{"Boole", "[", 
         RowBox[{"\[Beta]", ">", "Eq"}], "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Beta]", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
          RowBox[{"\[Rho]", "*", "\[Beta]", "*", 
           RowBox[{"(", 
            RowBox[{"zB", "+", 
             RowBox[{"2", "\[Kappa]", "*", 
              RowBox[{"gU", "[", 
               RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "Eq"}], 
               "]"}]}]}], ")"}], 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"2", "*", "\[Rho]", "*", "\[Kappa]", "*", 
           SuperscriptBox["\[Sigma]M", "2"], "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"NCDF", "[", 
              FractionBox[
               RowBox[{"Eq", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
              "]"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"Boole", "[", 
         RowBox[{"\[Beta]", "<", "Eq"}], "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Beta]", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
          RowBox[{"\[Rho]", "*", "\[Beta]", "*", 
           RowBox[{"(", 
            RowBox[{"zG", "+", 
             RowBox[{"2", "\[Kappa]", "*", 
              RowBox[{"gL", "[", 
               RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "Eq"}], 
               "]"}]}]}], ")"}], 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"2", "*", "\[Rho]", "*", "\[Kappa]", "*", 
           SuperscriptBox["\[Sigma]M", "2"], "*", 
           RowBox[{"NCDF", "[", 
            FractionBox[
             RowBox[{"Eq", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
            "]"}]}]}], ")"}]}]}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"zG", "+", 
         RowBox[{"2", "\[Kappa]", "*", 
          RowBox[{"gL", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Mu]\[Beta]"}], 
           "]"}]}], "-", "zB", "-", 
         RowBox[{"2", "\[Kappa]", "*", 
          RowBox[{"gU", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Mu]\[Beta]"}], 
           "]"}]}]}], ">", "0"}], ",", "\n", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"P", "[", "\[Beta]i", "]"}], "*", 
          RowBox[{"NPDF", "[", 
           RowBox[{"\[Beta]i", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
           "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Beta]i", ",", 
           RowBox[{"-", "20"}], ",", "20"}], "}"}]}], "]"}], ",", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Beta]i", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
            RowBox[{"\[Rho]", "*", "\[Beta]i", "*", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"zB", "+", "zG"}], "2"], "+", 
               RowBox[{"\[Kappa]", "*", "\[Mu]\[Beta]"}]}], ")"}], 
             SuperscriptBox["\[Sigma]C", "2"]}], "-", 
            RowBox[{"\[Rho]", "*", "\[Kappa]", "*", 
             SuperscriptBox["\[Sigma]M", "2"]}]}], ")"}], "*", 
          RowBox[{"NPDF", "[", 
           RowBox[{"\[Beta]i", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
           "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Beta]i", ",", 
           RowBox[{"-", "20"}], ",", "20"}], "}"}]}], "]"}]}], "]"}]}]}], 
   "]"}]}]}], "Code",
 CellChangeTimes->{{3.879367385602292*^9, 3.879367407198351*^9}, {
   3.879367560825938*^9, 3.879367598141038*^9}, 3.8796962007871237`*^9, {
   3.879722158239957*^9, 3.879722547290058*^9}, 3.879722622661736*^9, {
   3.879722690658145*^9, 3.879722703386012*^9}, 3.879722742809458*^9, {
   3.879722786156254*^9, 3.879722801133822*^9}, {3.900173673583288*^9, 
   3.900173674430168*^9}, {3.901313905469708*^9, 3.901313997256062*^9}, {
   3.9013140315701036`*^9, 3.901314040987685*^9}, {3.901319757515613*^9, 
   3.901319855452297*^9}, {3.901319886215115*^9, 3.9013198951739407`*^9}, {
   3.901320843487668*^9, 3.901320966925701*^9}, {3.901321021512035*^9, 
   3.901321028756209*^9}, {3.901321076925315*^9, 3.9013210790549*^9}, {
   3.901321130254199*^9, 3.901321157963459*^9}, {3.9013654439800367`*^9, 
   3.901365446275099*^9}, 3.901365548324991*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"c9eda70c-4502-41fe-9a5c-b14005ebaef0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CondP", "[", 
   RowBox[{
   "x_", ",", "\[Mu]\[Beta]_", ",", "\[Sigma]0_", ",", "\[Sigma]\[Beta]_", ",",
     "\[Sigma]C_", ",", "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", 
    "\[Kappa]_", ",", "\[Mu]C_", ",", "\[Mu]M_", ",", "\[Rho]_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Eq", ",", "T", ",", "P", ",", "effval", ",", "\[Sigma]\[Epsilon]", ",", 
      "mB", ",", "sB"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"\[Sigma]\[Epsilon]", "=", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[Sigma]0", "2"]}], "+", 
        FractionBox[
         SuperscriptBox["\[Sigma]0", "4"], 
         SuperscriptBox["\[Sigma]\[Beta]", "2"]]}]]}], ";", "\n", 
     RowBox[{"mB", "=", 
      FractionBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Sigma]\[Epsilon]", "2"], "*", "\[Mu]\[Beta]"}], "+", 
        RowBox[{
         SuperscriptBox["\[Sigma]0", "2"], "*", "x"}]}], 
       RowBox[{
        SuperscriptBox["\[Sigma]\[Epsilon]", "2"], "+", 
        SuperscriptBox["\[Sigma]0", "2"]}]]}], ";", "\n", 
     RowBox[{"sB", "=", 
      SqrtBox[
       RowBox[{"(", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[Sigma]0", "4"], 
          SuperscriptBox["\[Sigma]\[Epsilon]", "2"]}], 
         RowBox[{
          SuperscriptBox["\[Sigma]0", "2"], "+", 
          SuperscriptBox["\[Sigma]\[Epsilon]", "2"]}]], ")"}]]}], ";", "\n", 
     RowBox[{"Eq", "=", 
      RowBox[{"T", "/.", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"T", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", "\[Kappa]", " ", 
               RowBox[{"gL", "[", 
                RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], 
                "]"}]}], "+", "zG", "-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", "\[Kappa]", " ", 
                 RowBox[{"gU", "[", 
                  RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "T"}], 
                  "]"}]}], "+", "zB"}], ")"}]}], ")"}], 
            SuperscriptBox["\[Sigma]C", "2"]}], "-", 
           RowBox[{"2", "\[Kappa]", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", 
               RowBox[{"NCDF", "[", 
                FractionBox[
                 RowBox[{"T", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
                "]"}]}]}], ")"}], 
            SuperscriptBox["\[Sigma]M", "2"]}]}], ")"}], ",", 
         RowBox[{"{", 
          RowBox[{"T", ",", 
           RowBox[{"-", ".1"}]}], "}"}]}], "]"}]}]}], ";", "\n", 
     RowBox[{
      RowBox[{"P", "[", "\[Beta]_", "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{"Boole", "[", 
         RowBox[{"\[Beta]", ">", "Eq"}], "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Beta]", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
          RowBox[{"\[Rho]", "*", "\[Beta]", "*", 
           RowBox[{"(", 
            RowBox[{"zB", "+", 
             RowBox[{"2", "\[Kappa]", "*", 
              RowBox[{"gU", "[", 
               RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "Eq"}], 
               "]"}]}]}], ")"}], 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"2", "*", "\[Rho]", "*", "\[Kappa]", "*", 
           SuperscriptBox["\[Sigma]M", "2"], "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"NCDF", "[", 
              FractionBox[
               RowBox[{"Eq", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
              "]"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"Boole", "[", 
         RowBox[{"\[Beta]", "<", "Eq"}], "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Beta]", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
          RowBox[{"\[Rho]", "*", "\[Beta]", "*", 
           RowBox[{"(", 
            RowBox[{"zG", "+", 
             RowBox[{"2", "\[Kappa]", "*", 
              RowBox[{"gL", "[", 
               RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "Eq"}], 
               "]"}]}]}], ")"}], 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"2", "*", "\[Rho]", "*", "\[Kappa]", "*", 
           SuperscriptBox["\[Sigma]M", "2"], "*", 
           RowBox[{"NCDF", "[", 
            FractionBox[
             RowBox[{"Eq", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], 
            "]"}]}]}], ")"}]}]}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"zG", "+", 
         RowBox[{"2", "\[Kappa]", "*", 
          RowBox[{"gL", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Mu]\[Beta]"}], 
           "]"}]}], "-", "zB", "-", 
         RowBox[{"2", "\[Kappa]", "*", 
          RowBox[{"gU", "[", 
           RowBox[{
           "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Mu]\[Beta]"}], 
           "]"}]}]}], ">", "0"}], ",", "\n", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"P", "[", "\[Beta]i", "]"}], "*", 
          RowBox[{"NPDF", "[", 
           RowBox[{"\[Beta]i", ",", "mB", ",", "sB"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Beta]i", ",", 
           RowBox[{
            RowBox[{"-", "20"}], "*", "sB"}], ",", 
           RowBox[{"20", "*", "sB"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"NIntegrate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Beta]i", "*", "\[Mu]C"}], "+", "\[Mu]M", "-", 
            RowBox[{"\[Rho]", "*", "\[Beta]i", "*", 
             RowBox[{"(", 
              RowBox[{
               FractionBox[
                RowBox[{"zB", "+", "zG"}], "2"], "+", 
               RowBox[{"\[Kappa]", "*", "\[Mu]\[Beta]"}]}], ")"}], 
             SuperscriptBox["\[Sigma]C", "2"]}], "-", 
            RowBox[{"\[Rho]", "*", "\[Kappa]", "*", 
             SuperscriptBox["\[Sigma]M", "2"]}]}], ")"}], "*", 
          RowBox[{"NPDF", "[", 
           RowBox[{"\[Beta]i", ",", "mB", ",", "sB"}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Beta]i", ",", 
           RowBox[{
            RowBox[{"-", "20"}], "*", "sB"}], ",", 
           RowBox[{"20", "*", "sB"}]}], "}"}]}], "]"}]}], "]"}]}]}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"effval", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", 
     "\[Lambda]G_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"NSolveValues", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"zG", "+", 
        RowBox[{
         FractionBox["\[Kappa]", "\[Lambda]G"], "*", 
         RowBox[{"gL", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
           RowBox[{"INCDF", "[", 
            RowBox[{
            "\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
            "]"}]}], "]"}]}], "-", "zB", "-", 
        RowBox[{
         FractionBox["\[Kappa]", 
          RowBox[{"1", "-", "\[Lambda]G"}]], "*", 
         RowBox[{"gU", "[", 
          RowBox[{"\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", 
           RowBox[{"INCDF", "[", 
            RowBox[{
            "\[Lambda]G", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], 
            "]"}]}], "]"}]}]}], "==", "0"}], ",", "\[Sigma]\[Beta]"}], "]"}], 
    "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Code",
 CellChangeTimes->{{3.901489324655108*^9, 3.9014893604287777`*^9}, {
  3.90148952160338*^9, 3.90148963695625*^9}, {3.901489763829408*^9, 
  3.9014897641295958`*^9}, {3.901491202394532*^9, 3.901491202980583*^9}, {
  3.901491297796704*^9, 3.901491379095723*^9}, {3.901491531525795*^9, 
  3.901491610829193*^9}, {3.901491644647428*^9, 3.90149164709168*^9}, {
  3.901491760580934*^9, 3.901491783678968*^9}, {3.901491951049481*^9, 
  3.901491993983673*^9}, {3.901494837330076*^9, 3.901494841699909*^9}, {
  3.972601208677906*^9, 3.972601208838105*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"1dac4ecf-8c9f-48b4-a426-52417b38d255"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PFn", "[", 
      RowBox[{
      ".5", ",", ".5", ",", ".5", ",", "1", ",", "4", ",", "0", ",", "1", ",", 
       RowBox[{"-", "0.25"}], ",", "3", ",", "1"}], "]"}], ",", 
     RowBox[{"PFn", "[", 
      RowBox[{
      ".5", ",", "1.5", ",", ".5", ",", "1", ",", "4", ",", "0", ",", "1", ",", 
       RowBox[{"-", "0.25"}], ",", "3", ",", "1"}], "]"}], ",", 
     RowBox[{"PFn", "[", 
      RowBox[{
      ".5", ",", "3", ",", ".5", ",", "1", ",", "4", ",", "0", ",", "1", ",", 
       
       RowBox[{"-", "0.25"}], ",", "3", ",", "1"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Beta]$", ",", 
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "->", 
    RowBox[{"{", 
     RowBox[{"Solid", ",", "Dashed", ",", "DotDashed"}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "->", 
    RowBox[{"{", 
     RowBox[{"\"\<Expected Climate Beta \!\(\*SubscriptBox[OverscriptBox[\(\
\[Beta]\), \(^\)], \(j\)]\)\>\"", ",", "\"\<Stock Price\>\""}], "}"}]}], ",", 
   
   RowBox[{"PlotLegends", "->", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Low Disc. Precision\>\"", ",", 
            RowBox[{"FontSize", "->", "10"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Med Disc. Precision\>\"", ",", 
            RowBox[{"FontSize", "->", "10"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<High Disc. Precision\>\"", ",", 
            RowBox[{"FontSize", "->", "10"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Column\>\"", ",", "1"}], "}"}]}], ",", 
        RowBox[{"LegendMarkerSize", "->", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"22", ",", "3"}], "}"}], "}"}]}], ",", 
        RowBox[{"LegendFunction", "->", "Panel"}], ",", 
        RowBox[{"LegendMargins", "->", "1"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{".72", ",", ".8"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"ImageSize", "->", "270"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.879722866330632*^9, 3.879722912812955*^9}, {
   3.900173067976758*^9, 3.900173102942341*^9}, {3.900173157292368*^9, 
   3.900173159155343*^9}, 3.900173307678871*^9, {3.90017384179999*^9, 
   3.900173865253686*^9}, {3.900173902884803*^9, 3.900173906780814*^9}, {
   3.900174024671586*^9, 3.900174026734503*^9}, {3.900174080774011*^9, 
   3.90017424738877*^9}, {3.900174279701023*^9, 3.900174380135557*^9}, {
   3.901313872251251*^9, 3.901313886742699*^9}, {3.901320150432909*^9, 
   3.901320188748334*^9}, {3.901320224986491*^9, 3.9013203747568808`*^9}, {
   3.901321190810775*^9, 3.901321198602879*^9}, {3.901364853809972*^9, 
   3.90136485575832*^9}, {3.901365455673955*^9, 3.901365496836219*^9}, {
   3.901365575757159*^9, 3.901365630115514*^9}, {3.901365673344041*^9, 
   3.901365675657722*^9}, {3.901494960915572*^9, 3.90149496251618*^9}, {
   3.901494999958433*^9, 3.901495002472348*^9}, {3.901495036194723*^9, 
   3.9014950538065357`*^9}, 3.9726011031173363`*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"d32b6c46-0977-49d1-92cf-3a120f87ad6a"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{
    InterpretationBox[{
      TagBox[{{{}, {}, 
         TagBox[
          {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
           CapForm["Butt"], LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAxV4h3///779w7njd5EsLQCb2NUx2
+O+/7E8sFYZJC0CIjUq57PDvv2ix30wnRwtATLxzk9nh779hdEa8aUILQNIZ
xkezw++/UfoTm+44C0Dg1GqwZofvvzIGr1j4JQtA/Eq0gc0O77/2HeXTCwAL
QDQ3RySbHe6/e01RyjK0CkBAvxHfohLsv5txAjS+DwpAL6CnnlIq6r/kEvWM
L3YJQJShpoiWS+i/pZ5bBKTfCECWUkroRkTmv3rvmvhVPAhAely5TJ9f5L95
vRvc7aMHQPsVzSZkUuK/i1B1PMP+BkDy70krvU7gvxTOQrubXAZAl0UkaXzb
3L/IyFEpWsUFQIMK/mZXyNi/kIg5FFYhBUA1gW5ugvrUv4HFYu43iARA0zix
ytU/0b/q7P/mHPIDQFWfeiQEaMq/Ztl1XD9PA0CQMMDG/NrCvwxDLcFHtwJA
ewAxf05Xtb/Gcb2ijRICQBuOqhATFZW/+IrBotZwAUCu5AGhCW+jP1MhB5IF
2gBATwsHuOr4uT/DfCX+cTYAQJkumTyIksQ/uaoKs4g7/z8XGZxG6crMPxPm
e2Oo8P0/3kB903xu0j9b9tRQzqv8P2zDFfo0MtY/+ACxHMB8+z/5/wJ3iELW
P0o3x8+dd/s/hjzw89tS1j+ebd2Ce3L7P6G1yu2Cc9Y/RNoJ6TZo+z/Wp3/h
0LTWP5CzYrWtU/s/QYzpyGw31z8pZhROmyr7P2QJ/zTld9c/mogxQFUW+z8W
Vb2XpDzYP1nLd3922Po/o5GqFPhM2D+tAY4yVNP6PzDOl5FLXdg//zek5THO
+j9LR3KL8n3YP6ek0Evtw/o/gDknf0C/2D/yfSkYZK/6Pw52FPyTz9g/RrQ/
y0Gq+j+bsgF559/YP5jqVX4fpfo/tivcco4A2T8+V4Lk2pr6P+sdkWbcQdk/
jDDbsFGG+j94Wn7jL1LZP95m8WMvgfo/BpdrYINi2T8xnQcXDXz6PyAQRloq
g9k/1wk0fchx+j+uTDPXfZPZPytASjCmbPo/O4kgVNGj2T99dmDjg2f6P8jF
DdEktNk/0ax2lmFi+j+amEC6JbfZP5fs5spvYfo/nNOdbA==
            "]], LineBox[CompressedData["
1:eJwVxX841HcAB/DDsB91YXN7YpeozI94MvHMj3kf0nnEk/l5edgtMdZ4hLGh
2epJZZjb4olkafNMWUmeHiuj6I7uyY+0Y7pjl8qkfb9xzv3y5e6z7Y/X83JO
z4vLNGexWAH/+X8XYVBV+Z9yuNnuSqtLYXCkbJLv9Lccu6PkLfcEDKo010KH
LBWoi0zzEicw6J/P8HuLr0BsRObenmgGJ6WeBXFJCsSwQtwVUQyi29UdokwF
on7nbGAiGchzv3HbeEKBcB/pw4AIBmpNk6PVgAL+XM+0Wx8w2G4hMzMETmOL
VlV405vBaafQsWnvGbxsPXqx24bBfgE362eOElWv1K13TayiRGLmUvFiFkGU
zsFauAovr3GHaNVT5B1scBU+NsAULGN/NjEHzvBCcki2Ae81+9Rwn8wDki+K
nZ/roZpxfRI0twDlXKBRmK3HiDh2V5fkHywbrlzeodbhjbXJ13pHaVScTwtf
ytchS16r5N5YRK1vnzmP0eKXfUckRZEqsNWxHvQJLYbjhj5y3bcMG942nLfU
4uur3brjwWocP9ZaIvtOg4zOiXj3sBWUxGVcZLM1eGRV01Hmr8EsR7Y4Xr8C
21EbjYWrFgPmxa2LTis4GnTXNOmug3N5Mt+mRY0i40brhHf00NHPN91yU6Ml
69SE4zYDYqjuwcy2ZYhCR6o371iFo23Ps1y3ZbDzfg0T2zNI9ch513hdhdt7
bvZ1O6zBSZYqEPmoYMwV+iex13FJaUhLLFyCmfUfjZ7GdVh90jLNO70I/8iC
u1EsE9I3DPrurnwJZubKgr3ahEuN/Cm/Jhp7cqSiGJ0J1Q1/uW46S6Nm7dn7
FYwJ2WcLixd+oLHVwbFSY06ws/6CfdO3NPjJle6yNwk6Rfp4VimNuoeZh0V+
BL2n2sbvC2h4D22hXy8hGCmyvi/k0PgyMbAu7CuCjs+bNwfY0RiYSwwuPUYg
KvT91I5NI8GipvpFJUFCvvDVQUsaZby1ndJzBI9yftvroaUg7ZnKreglmD2U
JdbIKNhFrdj39RP0pxvtxh5QSJWzb2skBD8ePJPeNkxhSR/BzhglSBfeMUsR
U+D43egIUxLMp7zNu9NF4WPJg6TSpwTSA1drGzooXI6nTNfnCdoF4Y/z2ykE
F7jsd14iOJyUV779JwonzUL0ghWC6ETLMWMzhXHRgQsiPYF3QhN3qpGCw9Yi
vnSNwCbeJ7eznsKha6IlQgjUH97rrfyewr8wathH
            "]]},
          Annotation[#, "Charting`Private`Tag#1"]& ], 
         TagBox[
          {RGBColor[0.365248, 0.427802, 0.758297], AbsoluteThickness[1.6], 
           Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
           LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAxV4h3///77/ruuyxihwJQCb2NUx2
+O+/0CTNcIcaCUCIjUq57PDvv7aOrS+EGAlATLxzk9nh77+BYm6tfRQJQNIZ
xkezw++/FgrwqHAMCUDg1GqwZofvv0JZ859W/AhA/Eq0gc0O77+a9/mNItwI
QDQ3RySbHe6/SDQHarqbCEBAvxHfohLsv0rr0VgUEAhAL6CnnlIq6r9OAEpg
r40HQJShpoiWS+i/NhMbNdkNB0CWUkroRkTmv8RjnEAtgwZAely5TJ9f5L9U
EstkwgEGQPsVzSZkUuK/iv6pv4F1BUDy70krvU7gv6Po4efP6wRAl0UkaXzb
3L++MMcoX2sEQIMK/mZXyNi/f7ZcoBjgA0A1gW5ugvrUv0OanzATXgNA0zix
ytU/0b/qezuOnN4CQFWfeiQEaMq/NpuHIlBUAkCQMMDG/NrCv4UYgc9E0wFA
ewAxf05Xtb960yqzY0cBQBuOqhATFZW/UowtZBG+AECu5AGhCW+jPyyj3S0A
PgBATwsHuOr4uT9X73tcMmb/P5kumTyIksQ/XlSXjuZi/j8XGZxG6crMP640
Ey7vSf0/3kB903xu0j/EEEFoFTb8P+iiF7SLfdI/JTPvCRAy/D/yBLKUmozS
P4RVnasKLvw/B8nmVbiq0j9Gmvnu/yX8PzBRUNjz5tI/xiOydeoV/D+CYSPd
al/TP8s2I4O/9fs/JYLJ5lhQ1D/SXAWeabX7PzDkY8dnX9Q/MX+zP2Sx+z86
Rv6ndm7UP5KhYeFerfs/TgozaZSM1D9U5r0kVKX7P3aSnOvPyNQ/1W92qz6V
+z/Iom/wRkHVP9qC57gTdfs/bMMV+jQy1j/gqMnTvTT7P/n/AneIQtY/LU0t
x2Ew+z+GPPDz21LWP3zxkLoFLPs/obXK7YJz1j8WOlihTSP7P9anf+HQtNY/
TMvmbt0R+z9k5GxeJMXWP5pvSmKBDfs/8SBa23fV1j/nE65VJQn7PwyaNNUe
9tY/hFx1PG0A+z9BjOnIbDfXP7rtAwr97vo/zsjWRcBH1z8Ikmf9oOr6P1wF
xMITWNc/VDbL8ETm+j8gpoHMOGjXPwbyfEv14fo/ecicAA==
            "]], LineBox[CompressedData["
1:eJwVxX0wm3cAB3Ck19Z0qZbYqDgvnXLDtJu3SvdVanFlY5TpTjsqyox46dy8
Trnz1knF2Jnu3LrRl6lSq0NNurRJjTbmpSxhZvXEqbd5DYkn5Lftj899bC6k
hMYZ6Onpcf7z/7eTcusqS+T41qznL/M/aVSqM9tjauU4HDRUYKyg0ZQadm9v
lxwV/C5B/jANr7s+zlFP5ZCQZpOOARo9c86NLeNyaIT1tUsyGlMX9jZEaOWI
uV9+49xvNMzCRTUNHAWOac6LvLtp1Fc2mmqCFEgoC/O79ICG6+81lYHnFPjO
IqCvsZ1GIDf9q7U8BXafODpq3krjsteRfJ9fFVAUMP5R36CxwK68OHFyDHlG
ty3bKmiIZ3huptxxPLFazXGKpREcyY6vN5tEU93is8nuLWRJ9W2L5l7AlR1q
P2q+BWfnQYugFQosby69kaCBjvOc+dnINH65YvLDS4kax+qOCthTMxBnpjxi
HFBjZcJ+ynt6Frx4t8XYmE3IJCGuP0vn0VcyPFct2oCRdtSwu38RgvdI9IrR
BuLHKibZbUsw9WDcsbyows3AVGlGwAo8HdJIuWQdz0J7ztsHrkLUwe8/YrKO
/Lvtm4WcNehn+fGr+Gvg3RsJc/Rdx03FrVLH7lUodguac9xVMExUZghZqzjQ
b6xi2G+AuV2a7J2+glzvx7pRx028iMwV2RQuI2Pn1T1nLNVwYH/jz/dYwvX4
kpFDdhq4WvWL9w8tQnhSVm7+xhY+tx4L8UpbADPljq+ERYNTXFW8y3EeD091
itottBA7JLccfjKLneRP3COY2+h12cibyXwJ/T3DtW/ubOOg+4cxrm/PwD0g
/fFpPR1Ms2UeA0PToCeaZllrOly32by/v1SJU0m9wvc3dShskwYHFyoh0Co9
i2gdeNyqhau5SlhbHCpTGRA4JbvaMdOU4H5U5vjchKCzM/HrfR8rUT0Ulyh0
IxgJ/jvV0EkJlx6rxVeyCHZ92evMGKSQGX682jePYNa4ps/3KYVH0+Gc7AIC
WX1cXKGUwhmGoHyujKC6z6BO/wGFHB+tU+81AmvWiX16P1Lo7ZInF3UTeDa1
zm9fonDw9DpLJCawxOViDp9C1BjzoUpKsD30gW1uAoVltT+T108gVS+c1UZR
MHNra/adJAjxs+/b8qcQLR2IyKYI3vlDxfPyofBT2IKudYbg9U8lelnHKXDS
bYNtlgkmrkZ7alwoFOu/q45cJxDbvDXi4UhhUHj2e6GaoKFtJ+ULOwoW1hnc
Xi1BKVdm1MGmENsiXCaEIGn82q3N1yj8C14P8nw=
            "]]},
          Annotation[#, "Charting`Private`Tag#2"]& ], 
         TagBox[
          {RGBColor[0.945109, 0.593901, 0.], AbsoluteThickness[1.6], Opacity[
           1.], Dashing[{0, Small, Small, Small}], CapForm["Butt"], 
           LineBox[CompressedData["
1:eJwV0H8803kcB/DNj7m4JKKj3NGNB7U6/SCx6/2xhGypSHhcl5If/U4/VKSr
dCseR+ZaovKrHg9cXd1EHin6iuWxYnxt09FpsZZwy3fNj7HZvrf74/V4PV6P
538v94SjkUlmFAplsyn/98td7u9JksCecbqmSZKGPKd8OaemCaxXfH8gzkhD
2XnhDSo1gU1GZItqZ2mI03jiWt8gga3cFlSUMkNDEue20NpWAquMrl3bpaGh
AdkBQfIVAivYdeNU6Ucamg2vuyi2JbB9qfETzHYaWrM2lH7LdQxz4BNEeiEN
IWz++zv2KuzNYHu5A52GfiivKo1cOopZ36+zZzVYIn5FZXYhexiLPaH8nL3V
EhVGhg+HBA9hdiw8i5BboIydDZyyeCUWmCvqHT1pgfSOYs/ESAXW1Z85bGlm
gTTEpmVNEQPYOcaZPesKzNGNjfT9mf/0YyXa87eoXubokrUxOUbUi3m+2pA/
8tgM+V48ciRLJ8OWOC0ITmabIal/zese6Mb8E5Yl6BVUFF2WQbfY9xqrrzOu
ExyjIp5Pc9vs2xasOksumbGiorOUlecjYh5jFjEZHnuvU9Ciq/fsHByvY+lL
fx5U0inooZJaMefoXcA0RY1Tp0nYYmP1ZHS6AfaUEN57+UYoXlHMzP5dCMPr
451nMAMsdL4dMvK6A1ifQzI7+2ZBjs5JM49IoKu4sUam1cOhVkfdmlVvIOhH
9n4LDz00DyX6Lgh9C5c/b+OfQDrYEuuactdJDgL+saCvD85AupC6hDsyANYB
373oKZ6G5ctxF45aAUxVcJ28XgtGptT2oEwJW69f8p7/YQpWlazMcx0cggB2
gP0lwySo+z0HA5XDEEP+IvZYPAkdrVt9HglHYce9fmvNpgmw0ffMaRSrYGnC
o2eGpHFI6cuXu9aNgdKuYmxVgQYq2anCtDA1dDa5ThQ1f4H2yLZdnuwvkH/a
/vB6uRrOP6ifymJqwMfLbd9cGzUkCmRR3qxx2N7OfrCWMwa9tLyHZ/0mgLYm
52pVuQrmi+0mzD0ngV6sWJBuGIXMwBZjj/cUKBcysl75jUCaYa7V9sVaOP5r
1fihq5+gPOWKbNH301Bt7cDJb/kIvKCOXGePGQjOu7nJgfwAtkfvs0yXQrUh
ij0ap4DnwU+a6l30ILhiWI0KBsBwON5vh+0sfEXWBEnE74BqJSleZpiFC5/K
kz7lvAW/sOMt4RQjIPPUGJ3xDej6/xx21BihSHdnW61ACsGHRLzNU0b4hsvi
qiukkKf/4M/VGYE3T/Fk+TUpuLksypkwI4FHd3erTpNCaEyOt9SBhOyIsrHb
AVLgdycd4PmScOHOrd8uCyWwou1blXU6CbvD+S/jervhTHQAn3WOhF7Z6pnC
V93wQhnNzLho8ngpQ/a0G7ab5+WO5Jj2SXt+REk3nEV6hugmCbGlvIQNCd0g
evr3YW4jCWGaXJKhwsE+fNyxqZmE5kzG6gPvcNjZZ/t8QkiCv1VHclUnDoR2
o22imAS02KbTvQYHJ9+6hyw5CT4hObedTuGwW9i1I0NBggD3wqNScPgj6l9j
zZDJfxKZF8TiwDy+ZIs7QYJXqtVBm0AcLlPXa2PHSajWVZaGMXDAeXFlPK3J
uSESrisOLm5poSK9yecNWbba4rD3Lx5Bkia/yV1HoeDwH2FNem8=
            "]]},
          Annotation[#, "Charting`Private`Tag#3"]& ], {}}, {}},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
             Annotation[{
               Directive[
                Opacity[1.], 
                RGBColor[0.9, 0.36, 0.054], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6]], 
               Line[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAxV4h3///779w7njd5EsLQCb2NUx2
+O+/7E8sFYZJC0CIjUq57PDvv2ix30wnRwtATLxzk9nh779hdEa8aUILQNIZ
xkezw++/UfoTm+44C0Dg1GqwZofvvzIGr1j4JQtA/Eq0gc0O77/2HeXTCwAL
QDQ3RySbHe6/e01RyjK0CkBAvxHfohLsv5txAjS+DwpAL6CnnlIq6r/kEvWM
L3YJQJShpoiWS+i/pZ5bBKTfCECWUkroRkTmv3rvmvhVPAhAely5TJ9f5L95
vRvc7aMHQPsVzSZkUuK/i1B1PMP+BkDy70krvU7gvxTOQrubXAZAl0UkaXzb
3L/IyFEpWsUFQIMK/mZXyNi/kIg5FFYhBUA1gW5ugvrUv4HFYu43iARA0zix
ytU/0b/q7P/mHPIDQFWfeiQEaMq/Ztl1XD9PA0CQMMDG/NrCvwxDLcFHtwJA
ewAxf05Xtb/Gcb2ijRICQBuOqhATFZW/+IrBotZwAUCu5AGhCW+jP1MhB5IF
2gBATwsHuOr4uT/DfCX+cTYAQJkumTyIksQ/uaoKs4g7/z8XGZxG6crMPxPm
e2Oo8P0/3kB903xu0j9b9tRQzqv8P2zDFfo0MtY/+ACxHMB8+z/5/wJ3iELW
P0o3x8+dd/s/hjzw89tS1j+ebd2Ce3L7P6G1yu2Cc9Y/RNoJ6TZo+z/Wp3/h
0LTWP5CzYrWtU/s/QYzpyGw31z8pZhROmyr7P2QJ/zTld9c/mogxQFUW+z8W
Vb2XpDzYP1nLd3922Po/o5GqFPhM2D+tAY4yVNP6PzDOl5FLXdg//zek5THO
+j9LR3KL8n3YP6ek0Evtw/o/gDknf0C/2D/yfSkYZK/6Pw52FPyTz9g/RrQ/
y0Gq+j+bsgF559/YP5jqVX4fpfo/tivcco4A2T8+V4Lk2pr6P+sdkWbcQdk/
jDDbsFGG+j94Wn7jL1LZP95m8WMvgfo/BpdrYINi2T8xnQcXDXz6PyAQRloq
g9k/1wk0fchx+j+uTDPXfZPZPytASjCmbPo/O4kgVNGj2T99dmDjg2f6P8jF
DdEktNk/0ax2lmFi+j+amEC6JbfZP5fs5spvYfo/nNOdbA==
                "]], 
               Line[CompressedData["
1:eJwVxX841HcAB/DDsB91YXN7YpeozI94MvHMj3kf0nnEk/l5edgtMdZ4hLGh
2epJZZjb4olkafNMWUmeHiuj6I7uyY+0Y7pjl8qkfb9xzv3y5e6z7Y/X83JO
z4vLNGexWAH/+X8XYVBV+Z9yuNnuSqtLYXCkbJLv9Lccu6PkLfcEDKo010KH
LBWoi0zzEicw6J/P8HuLr0BsRObenmgGJ6WeBXFJCsSwQtwVUQyi29UdokwF
on7nbGAiGchzv3HbeEKBcB/pw4AIBmpNk6PVgAL+XM+0Wx8w2G4hMzMETmOL
VlV405vBaafQsWnvGbxsPXqx24bBfgE362eOElWv1K13TayiRGLmUvFiFkGU
zsFauAovr3GHaNVT5B1scBU+NsAULGN/NjEHzvBCcki2Ae81+9Rwn8wDki+K
nZ/roZpxfRI0twDlXKBRmK3HiDh2V5fkHywbrlzeodbhjbXJ13pHaVScTwtf
ytchS16r5N5YRK1vnzmP0eKXfUckRZEqsNWxHvQJLYbjhj5y3bcMG942nLfU
4uur3brjwWocP9ZaIvtOg4zOiXj3sBWUxGVcZLM1eGRV01Hmr8EsR7Y4Xr8C
21EbjYWrFgPmxa2LTis4GnTXNOmug3N5Mt+mRY0i40brhHf00NHPN91yU6Ml
69SE4zYDYqjuwcy2ZYhCR6o371iFo23Ps1y3ZbDzfg0T2zNI9ch513hdhdt7
bvZ1O6zBSZYqEPmoYMwV+iex13FJaUhLLFyCmfUfjZ7GdVh90jLNO70I/8iC
u1EsE9I3DPrurnwJZubKgr3ahEuN/Cm/Jhp7cqSiGJ0J1Q1/uW46S6Nm7dn7
FYwJ2WcLixd+oLHVwbFSY06ws/6CfdO3NPjJle6yNwk6Rfp4VimNuoeZh0V+
BL2n2sbvC2h4D22hXy8hGCmyvi/k0PgyMbAu7CuCjs+bNwfY0RiYSwwuPUYg
KvT91I5NI8GipvpFJUFCvvDVQUsaZby1ndJzBI9yftvroaUg7ZnKreglmD2U
JdbIKNhFrdj39RP0pxvtxh5QSJWzb2skBD8ePJPeNkxhSR/BzhglSBfeMUsR
U+D43egIUxLMp7zNu9NF4WPJg6TSpwTSA1drGzooXI6nTNfnCdoF4Y/z2ykE
F7jsd14iOJyUV779JwonzUL0ghWC6ETLMWMzhXHRgQsiPYF3QhN3qpGCw9Yi
vnSNwCbeJ7eznsKha6IlQgjUH97rrfyewr8wathH
                "]]}, "Charting`Private`Tag#1"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}]], 
               Line[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAxV4h3///77/ruuyxihwJQCb2NUx2
+O+/0CTNcIcaCUCIjUq57PDvv7aOrS+EGAlATLxzk9nh77+BYm6tfRQJQNIZ
xkezw++/FgrwqHAMCUDg1GqwZofvv0JZ859W/AhA/Eq0gc0O77+a9/mNItwI
QDQ3RySbHe6/SDQHarqbCEBAvxHfohLsv0rr0VgUEAhAL6CnnlIq6r9OAEpg
r40HQJShpoiWS+i/NhMbNdkNB0CWUkroRkTmv8RjnEAtgwZAely5TJ9f5L9U
EstkwgEGQPsVzSZkUuK/iv6pv4F1BUDy70krvU7gv6Po4efP6wRAl0UkaXzb
3L++MMcoX2sEQIMK/mZXyNi/f7ZcoBjgA0A1gW5ugvrUv0OanzATXgNA0zix
ytU/0b/qezuOnN4CQFWfeiQEaMq/NpuHIlBUAkCQMMDG/NrCv4UYgc9E0wFA
ewAxf05Xtb960yqzY0cBQBuOqhATFZW/UowtZBG+AECu5AGhCW+jPyyj3S0A
PgBATwsHuOr4uT9X73tcMmb/P5kumTyIksQ/XlSXjuZi/j8XGZxG6crMP640
Ey7vSf0/3kB903xu0j/EEEFoFTb8P+iiF7SLfdI/JTPvCRAy/D/yBLKUmozS
P4RVnasKLvw/B8nmVbiq0j9Gmvnu/yX8PzBRUNjz5tI/xiOydeoV/D+CYSPd
al/TP8s2I4O/9fs/JYLJ5lhQ1D/SXAWeabX7PzDkY8dnX9Q/MX+zP2Sx+z86
Rv6ndm7UP5KhYeFerfs/TgozaZSM1D9U5r0kVKX7P3aSnOvPyNQ/1W92qz6V
+z/Iom/wRkHVP9qC57gTdfs/bMMV+jQy1j/gqMnTvTT7P/n/AneIQtY/LU0t
x2Ew+z+GPPDz21LWP3zxkLoFLPs/obXK7YJz1j8WOlihTSP7P9anf+HQtNY/
TMvmbt0R+z9k5GxeJMXWP5pvSmKBDfs/8SBa23fV1j/nE65VJQn7PwyaNNUe
9tY/hFx1PG0A+z9BjOnIbDfXP7rtAwr97vo/zsjWRcBH1z8Ikmf9oOr6P1wF
xMITWNc/VDbL8ETm+j8gpoHMOGjXPwbyfEv14fo/ecicAA==
                "]], 
               Line[CompressedData["
1:eJwVxX0wm3cAB3Ck19Z0qZbYqDgvnXLDtJu3SvdVanFlY5TpTjsqyox46dy8
Trnz1knF2Jnu3LrRl6lSq0NNurRJjTbmpSxhZvXEqbd5DYkn5Lftj899bC6k
hMYZ6Onpcf7z/7eTcusqS+T41qznL/M/aVSqM9tjauU4HDRUYKyg0ZQadm9v
lxwV/C5B/jANr7s+zlFP5ZCQZpOOARo9c86NLeNyaIT1tUsyGlMX9jZEaOWI
uV9+49xvNMzCRTUNHAWOac6LvLtp1Fc2mmqCFEgoC/O79ICG6+81lYHnFPjO
IqCvsZ1GIDf9q7U8BXafODpq3krjsteRfJ9fFVAUMP5R36CxwK68OHFyDHlG
ty3bKmiIZ3huptxxPLFazXGKpREcyY6vN5tEU93is8nuLWRJ9W2L5l7AlR1q
P2q+BWfnQYugFQosby69kaCBjvOc+dnINH65YvLDS4kax+qOCthTMxBnpjxi
HFBjZcJ+ynt6Frx4t8XYmE3IJCGuP0vn0VcyPFct2oCRdtSwu38RgvdI9IrR
BuLHKibZbUsw9WDcsbyows3AVGlGwAo8HdJIuWQdz0J7ztsHrkLUwe8/YrKO
/Lvtm4WcNehn+fGr+Gvg3RsJc/Rdx03FrVLH7lUodguac9xVMExUZghZqzjQ
b6xi2G+AuV2a7J2+glzvx7pRx028iMwV2RQuI2Pn1T1nLNVwYH/jz/dYwvX4
kpFDdhq4WvWL9w8tQnhSVm7+xhY+tx4L8UpbADPljq+ERYNTXFW8y3EeD091
itottBA7JLccfjKLneRP3COY2+h12cibyXwJ/T3DtW/ubOOg+4cxrm/PwD0g
/fFpPR1Ms2UeA0PToCeaZllrOly32by/v1SJU0m9wvc3dShskwYHFyoh0Co9
i2gdeNyqhau5SlhbHCpTGRA4JbvaMdOU4H5U5vjchKCzM/HrfR8rUT0Ulyh0
IxgJ/jvV0EkJlx6rxVeyCHZ92evMGKSQGX682jePYNa4ps/3KYVH0+Gc7AIC
WX1cXKGUwhmGoHyujKC6z6BO/wGFHB+tU+81AmvWiX16P1Lo7ZInF3UTeDa1
zm9fonDw9DpLJCawxOViDp9C1BjzoUpKsD30gW1uAoVltT+T108gVS+c1UZR
MHNra/adJAjxs+/b8qcQLR2IyKYI3vlDxfPyofBT2IKudYbg9U8lelnHKXDS
bYNtlgkmrkZ7alwoFOu/q45cJxDbvDXi4UhhUHj2e6GaoKFtJ+ULOwoW1hnc
Xi1BKVdm1MGmENsiXCaEIGn82q3N1yj8C14P8nw=
                "]]}, "Charting`Private`Tag#2"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                RGBColor[0.945109, 0.593901, 0.], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{0, Small, Small, Small}]], 
               Line[CompressedData["
1:eJwV0H8803kcB/DNj7m4JKKj3NGNB7U6/SCx6/2xhGypSHhcl5If/U4/VKSr
dCseR+ZaovKrHg9cXd1EHin6iuWxYnxt09FpsZZwy3fNj7HZvrf74/V4PV6P
538v94SjkUlmFAplsyn/98td7u9JksCecbqmSZKGPKd8OaemCaxXfH8gzkhD
2XnhDSo1gU1GZItqZ2mI03jiWt8gga3cFlSUMkNDEue20NpWAquMrl3bpaGh
AdkBQfIVAivYdeNU6Ucamg2vuyi2JbB9qfETzHYaWrM2lH7LdQxz4BNEeiEN
IWz++zv2KuzNYHu5A52GfiivKo1cOopZ36+zZzVYIn5FZXYhexiLPaH8nL3V
EhVGhg+HBA9hdiw8i5BboIydDZyyeCUWmCvqHT1pgfSOYs/ESAXW1Z85bGlm
gTTEpmVNEQPYOcaZPesKzNGNjfT9mf/0YyXa87eoXubokrUxOUbUi3m+2pA/
8tgM+V48ciRLJ8OWOC0ITmabIal/zese6Mb8E5Yl6BVUFF2WQbfY9xqrrzOu
ExyjIp5Pc9vs2xasOksumbGiorOUlecjYh5jFjEZHnuvU9Ciq/fsHByvY+lL
fx5U0inooZJaMefoXcA0RY1Tp0nYYmP1ZHS6AfaUEN57+UYoXlHMzP5dCMPr
451nMAMsdL4dMvK6A1ifQzI7+2ZBjs5JM49IoKu4sUam1cOhVkfdmlVvIOhH
9n4LDz00DyX6Lgh9C5c/b+OfQDrYEuuactdJDgL+saCvD85AupC6hDsyANYB
373oKZ6G5ctxF45aAUxVcJ28XgtGptT2oEwJW69f8p7/YQpWlazMcx0cggB2
gP0lwySo+z0HA5XDEEP+IvZYPAkdrVt9HglHYce9fmvNpgmw0ffMaRSrYGnC
o2eGpHFI6cuXu9aNgdKuYmxVgQYq2anCtDA1dDa5ThQ1f4H2yLZdnuwvkH/a
/vB6uRrOP6ifymJqwMfLbd9cGzUkCmRR3qxx2N7OfrCWMwa9tLyHZ/0mgLYm
52pVuQrmi+0mzD0ngV6sWJBuGIXMwBZjj/cUKBcysl75jUCaYa7V9sVaOP5r
1fihq5+gPOWKbNH301Bt7cDJb/kIvKCOXGePGQjOu7nJgfwAtkfvs0yXQrUh
ij0ap4DnwU+a6l30ILhiWI0KBsBwON5vh+0sfEXWBEnE74BqJSleZpiFC5/K
kz7lvAW/sOMt4RQjIPPUGJ3xDej6/xx21BihSHdnW61ACsGHRLzNU0b4hsvi
qiukkKf/4M/VGYE3T/Fk+TUpuLksypkwI4FHd3erTpNCaEyOt9SBhOyIsrHb
AVLgdycd4PmScOHOrd8uCyWwou1blXU6CbvD+S/jervhTHQAn3WOhF7Z6pnC
V93wQhnNzLho8ngpQ/a0G7ab5+WO5Jj2SXt+REk3nEV6hugmCbGlvIQNCd0g
evr3YW4jCWGaXJKhwsE+fNyxqZmE5kzG6gPvcNjZZ/t8QkiCv1VHclUnDoR2
o22imAS02KbTvQYHJ9+6hyw5CT4hObedTuGwW9i1I0NBggD3wqNScPgj6l9j
zZDJfxKZF8TiwDy+ZIs7QYJXqtVBm0AcLlPXa2PHSajWVZaGMXDAeXFlPK3J
uSESrisOLm5poSK9yecNWbba4rD3Lx5Bkia/yV1HoeDwH2FNem8=
                "]]}, "Charting`Private`Tag#3"], {}}}, {}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{-1, 2}, {0., 3.41205761933616}}, 
             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
             "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
             "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
             "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
               Directive[
                Opacity[1.], 
                RGBColor[0.945109, 0.593901, 0.], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{0, Small, Small, Small}]], 
               Directive[
                Opacity[1.], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}]], 
               Directive[
                Opacity[1.], 
                RGBColor[0.9, 0.36, 0.054], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{-1, 2}, {0., 3.41205761933616}}, 
            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
            "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
            "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
            "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               RGBColor[0.945109, 0.593901, 0.], 
               CapForm["Butt"], 
               AbsoluteThickness[1.6], 
               Dashing[{0, Small, Small, Small}]], 
              Directive[
               Opacity[1.], 
               RGBColor[0.365248, 0.427802, 0.758297], 
               CapForm["Butt"], 
               AbsoluteThickness[1.6], 
               Dashing[{Small, Small}]], 
              Directive[
               Opacity[1.], 
               RGBColor[0.9, 0.36, 0.054], 
               CapForm["Butt"], 
               AbsoluteThickness[1.6]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>],
        ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
         4.503599627370496*^15, -4.503599627370496*^15}}],
       Selectable->False]},
     Annotation[{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.9, 0.36, 0.054], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6]], 
           Line[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAxV4h3///779w7njd5EsLQCb2NUx2
+O+/7E8sFYZJC0CIjUq57PDvv2ix30wnRwtATLxzk9nh779hdEa8aUILQNIZ
xkezw++/UfoTm+44C0Dg1GqwZofvvzIGr1j4JQtA/Eq0gc0O77/2HeXTCwAL
QDQ3RySbHe6/e01RyjK0CkBAvxHfohLsv5txAjS+DwpAL6CnnlIq6r/kEvWM
L3YJQJShpoiWS+i/pZ5bBKTfCECWUkroRkTmv3rvmvhVPAhAely5TJ9f5L95
vRvc7aMHQPsVzSZkUuK/i1B1PMP+BkDy70krvU7gvxTOQrubXAZAl0UkaXzb
3L/IyFEpWsUFQIMK/mZXyNi/kIg5FFYhBUA1gW5ugvrUv4HFYu43iARA0zix
ytU/0b/q7P/mHPIDQFWfeiQEaMq/Ztl1XD9PA0CQMMDG/NrCvwxDLcFHtwJA
ewAxf05Xtb/Gcb2ijRICQBuOqhATFZW/+IrBotZwAUCu5AGhCW+jP1MhB5IF
2gBATwsHuOr4uT/DfCX+cTYAQJkumTyIksQ/uaoKs4g7/z8XGZxG6crMPxPm
e2Oo8P0/3kB903xu0j9b9tRQzqv8P2zDFfo0MtY/+ACxHMB8+z/5/wJ3iELW
P0o3x8+dd/s/hjzw89tS1j+ebd2Ce3L7P6G1yu2Cc9Y/RNoJ6TZo+z/Wp3/h
0LTWP5CzYrWtU/s/QYzpyGw31z8pZhROmyr7P2QJ/zTld9c/mogxQFUW+z8W
Vb2XpDzYP1nLd3922Po/o5GqFPhM2D+tAY4yVNP6PzDOl5FLXdg//zek5THO
+j9LR3KL8n3YP6ek0Evtw/o/gDknf0C/2D/yfSkYZK/6Pw52FPyTz9g/RrQ/
y0Gq+j+bsgF559/YP5jqVX4fpfo/tivcco4A2T8+V4Lk2pr6P+sdkWbcQdk/
jDDbsFGG+j94Wn7jL1LZP95m8WMvgfo/BpdrYINi2T8xnQcXDXz6PyAQRloq
g9k/1wk0fchx+j+uTDPXfZPZPytASjCmbPo/O4kgVNGj2T99dmDjg2f6P8jF
DdEktNk/0ax2lmFi+j+amEC6JbfZP5fs5spvYfo/nNOdbA==
            "]], 
           Line[CompressedData["
1:eJwVxX841HcAB/DDsB91YXN7YpeozI94MvHMj3kf0nnEk/l5edgtMdZ4hLGh
2epJZZjb4olkafNMWUmeHiuj6I7uyY+0Y7pjl8qkfb9xzv3y5e6z7Y/X83JO
z4vLNGexWAH/+X8XYVBV+Z9yuNnuSqtLYXCkbJLv9Lccu6PkLfcEDKo010KH
LBWoi0zzEicw6J/P8HuLr0BsRObenmgGJ6WeBXFJCsSwQtwVUQyi29UdokwF
on7nbGAiGchzv3HbeEKBcB/pw4AIBmpNk6PVgAL+XM+0Wx8w2G4hMzMETmOL
VlV405vBaafQsWnvGbxsPXqx24bBfgE362eOElWv1K13TayiRGLmUvFiFkGU
zsFauAovr3GHaNVT5B1scBU+NsAULGN/NjEHzvBCcki2Ae81+9Rwn8wDki+K
nZ/roZpxfRI0twDlXKBRmK3HiDh2V5fkHywbrlzeodbhjbXJ13pHaVScTwtf
ytchS16r5N5YRK1vnzmP0eKXfUckRZEqsNWxHvQJLYbjhj5y3bcMG942nLfU
4uur3brjwWocP9ZaIvtOg4zOiXj3sBWUxGVcZLM1eGRV01Hmr8EsR7Y4Xr8C
21EbjYWrFgPmxa2LTis4GnTXNOmug3N5Mt+mRY0i40brhHf00NHPN91yU6Ml
69SE4zYDYqjuwcy2ZYhCR6o371iFo23Ps1y3ZbDzfg0T2zNI9ch513hdhdt7
bvZ1O6zBSZYqEPmoYMwV+iex13FJaUhLLFyCmfUfjZ7GdVh90jLNO70I/8iC
u1EsE9I3DPrurnwJZubKgr3ahEuN/Cm/Jhp7cqSiGJ0J1Q1/uW46S6Nm7dn7
FYwJ2WcLixd+oLHVwbFSY06ws/6CfdO3NPjJle6yNwk6Rfp4VimNuoeZh0V+
BL2n2sbvC2h4D22hXy8hGCmyvi/k0PgyMbAu7CuCjs+bNwfY0RiYSwwuPUYg
KvT91I5NI8GipvpFJUFCvvDVQUsaZby1ndJzBI9yftvroaUg7ZnKreglmD2U
JdbIKNhFrdj39RP0pxvtxh5QSJWzb2skBD8ePJPeNkxhSR/BzhglSBfeMUsR
U+D43egIUxLMp7zNu9NF4WPJg6TSpwTSA1drGzooXI6nTNfnCdoF4Y/z2ykE
F7jsd14iOJyUV779JwonzUL0ghWC6ETLMWMzhXHRgQsiPYF3QhN3qpGCw9Yi
vnSNwCbeJ7eznsKha6IlQgjUH97rrfyewr8wathH
            "]]}, "Charting`Private`Tag#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAxV4h3///77/ruuyxihwJQCb2NUx2
+O+/0CTNcIcaCUCIjUq57PDvv7aOrS+EGAlATLxzk9nh77+BYm6tfRQJQNIZ
xkezw++/FgrwqHAMCUDg1GqwZofvv0JZ859W/AhA/Eq0gc0O77+a9/mNItwI
QDQ3RySbHe6/SDQHarqbCEBAvxHfohLsv0rr0VgUEAhAL6CnnlIq6r9OAEpg
r40HQJShpoiWS+i/NhMbNdkNB0CWUkroRkTmv8RjnEAtgwZAely5TJ9f5L9U
EstkwgEGQPsVzSZkUuK/iv6pv4F1BUDy70krvU7gv6Po4efP6wRAl0UkaXzb
3L++MMcoX2sEQIMK/mZXyNi/f7ZcoBjgA0A1gW5ugvrUv0OanzATXgNA0zix
ytU/0b/qezuOnN4CQFWfeiQEaMq/NpuHIlBUAkCQMMDG/NrCv4UYgc9E0wFA
ewAxf05Xtb960yqzY0cBQBuOqhATFZW/UowtZBG+AECu5AGhCW+jPyyj3S0A
PgBATwsHuOr4uT9X73tcMmb/P5kumTyIksQ/XlSXjuZi/j8XGZxG6crMP640
Ey7vSf0/3kB903xu0j/EEEFoFTb8P+iiF7SLfdI/JTPvCRAy/D/yBLKUmozS
P4RVnasKLvw/B8nmVbiq0j9Gmvnu/yX8PzBRUNjz5tI/xiOydeoV/D+CYSPd
al/TP8s2I4O/9fs/JYLJ5lhQ1D/SXAWeabX7PzDkY8dnX9Q/MX+zP2Sx+z86
Rv6ndm7UP5KhYeFerfs/TgozaZSM1D9U5r0kVKX7P3aSnOvPyNQ/1W92qz6V
+z/Iom/wRkHVP9qC57gTdfs/bMMV+jQy1j/gqMnTvTT7P/n/AneIQtY/LU0t
x2Ew+z+GPPDz21LWP3zxkLoFLPs/obXK7YJz1j8WOlihTSP7P9anf+HQtNY/
TMvmbt0R+z9k5GxeJMXWP5pvSmKBDfs/8SBa23fV1j/nE65VJQn7PwyaNNUe
9tY/hFx1PG0A+z9BjOnIbDfXP7rtAwr97vo/zsjWRcBH1z8Ikmf9oOr6P1wF
xMITWNc/VDbL8ETm+j8gpoHMOGjXPwbyfEv14fo/ecicAA==
            "]], 
           Line[CompressedData["
1:eJwVxX0wm3cAB3Ck19Z0qZbYqDgvnXLDtJu3SvdVanFlY5TpTjsqyox46dy8
Trnz1knF2Jnu3LrRl6lSq0NNurRJjTbmpSxhZvXEqbd5DYkn5Lftj899bC6k
hMYZ6Onpcf7z/7eTcusqS+T41qznL/M/aVSqM9tjauU4HDRUYKyg0ZQadm9v
lxwV/C5B/jANr7s+zlFP5ZCQZpOOARo9c86NLeNyaIT1tUsyGlMX9jZEaOWI
uV9+49xvNMzCRTUNHAWOac6LvLtp1Fc2mmqCFEgoC/O79ICG6+81lYHnFPjO
IqCvsZ1GIDf9q7U8BXafODpq3krjsteRfJ9fFVAUMP5R36CxwK68OHFyDHlG
ty3bKmiIZ3huptxxPLFazXGKpREcyY6vN5tEU93is8nuLWRJ9W2L5l7AlR1q
P2q+BWfnQYugFQosby69kaCBjvOc+dnINH65YvLDS4kax+qOCthTMxBnpjxi
HFBjZcJ+ynt6Frx4t8XYmE3IJCGuP0vn0VcyPFct2oCRdtSwu38RgvdI9IrR
BuLHKibZbUsw9WDcsbyows3AVGlGwAo8HdJIuWQdz0J7ztsHrkLUwe8/YrKO
/Lvtm4WcNehn+fGr+Gvg3RsJc/Rdx03FrVLH7lUodguac9xVMExUZghZqzjQ
b6xi2G+AuV2a7J2+glzvx7pRx028iMwV2RQuI2Pn1T1nLNVwYH/jz/dYwvX4
kpFDdhq4WvWL9w8tQnhSVm7+xhY+tx4L8UpbADPljq+ERYNTXFW8y3EeD091
itottBA7JLccfjKLneRP3COY2+h12cibyXwJ/T3DtW/ubOOg+4cxrm/PwD0g
/fFpPR1Ms2UeA0PToCeaZllrOly32by/v1SJU0m9wvc3dShskwYHFyoh0Co9
i2gdeNyqhau5SlhbHCpTGRA4JbvaMdOU4H5U5vjchKCzM/HrfR8rUT0Ulyh0
IxgJ/jvV0EkJlx6rxVeyCHZ92evMGKSQGX682jePYNa4ps/3KYVH0+Gc7AIC
WX1cXKGUwhmGoHyujKC6z6BO/wGFHB+tU+81AmvWiX16P1Lo7ZInF3UTeDa1
zm9fonDw9DpLJCawxOViDp9C1BjzoUpKsD30gW1uAoVltT+T108gVS+c1UZR
MHNra/adJAjxs+/b8qcQLR2IyKYI3vlDxfPyofBT2IKudYbg9U8lelnHKXDS
bYNtlgkmrkZ7alwoFOu/q45cJxDbvDXi4UhhUHj2e6GaoKFtJ+ULOwoW1hnc
Xi1BKVdm1MGmENsiXCaEIGn82q3N1yj8C14P8nw=
            "]]}, "Charting`Private`Tag#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.945109, 0.593901, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{0, Small, Small, Small}]], 
           Line[CompressedData["
1:eJwV0H8803kcB/DNj7m4JKKj3NGNB7U6/SCx6/2xhGypSHhcl5If/U4/VKSr
dCseR+ZaovKrHg9cXd1EHin6iuWxYnxt09FpsZZwy3fNj7HZvrf74/V4PV6P
538v94SjkUlmFAplsyn/98td7u9JksCecbqmSZKGPKd8OaemCaxXfH8gzkhD
2XnhDSo1gU1GZItqZ2mI03jiWt8gga3cFlSUMkNDEue20NpWAquMrl3bpaGh
AdkBQfIVAivYdeNU6Ucamg2vuyi2JbB9qfETzHYaWrM2lH7LdQxz4BNEeiEN
IWz++zv2KuzNYHu5A52GfiivKo1cOopZ36+zZzVYIn5FZXYhexiLPaH8nL3V
EhVGhg+HBA9hdiw8i5BboIydDZyyeCUWmCvqHT1pgfSOYs/ESAXW1Z85bGlm
gTTEpmVNEQPYOcaZPesKzNGNjfT9mf/0YyXa87eoXubokrUxOUbUi3m+2pA/
8tgM+V48ciRLJ8OWOC0ITmabIal/zese6Mb8E5Yl6BVUFF2WQbfY9xqrrzOu
ExyjIp5Pc9vs2xasOksumbGiorOUlecjYh5jFjEZHnuvU9Ciq/fsHByvY+lL
fx5U0inooZJaMefoXcA0RY1Tp0nYYmP1ZHS6AfaUEN57+UYoXlHMzP5dCMPr
451nMAMsdL4dMvK6A1ifQzI7+2ZBjs5JM49IoKu4sUam1cOhVkfdmlVvIOhH
9n4LDz00DyX6Lgh9C5c/b+OfQDrYEuuactdJDgL+saCvD85AupC6hDsyANYB
373oKZ6G5ctxF45aAUxVcJ28XgtGptT2oEwJW69f8p7/YQpWlazMcx0cggB2
gP0lwySo+z0HA5XDEEP+IvZYPAkdrVt9HglHYce9fmvNpgmw0ffMaRSrYGnC
o2eGpHFI6cuXu9aNgdKuYmxVgQYq2anCtDA1dDa5ThQ1f4H2yLZdnuwvkH/a
/vB6uRrOP6ifymJqwMfLbd9cGzUkCmRR3qxx2N7OfrCWMwa9tLyHZ/0mgLYm
52pVuQrmi+0mzD0ngV6sWJBuGIXMwBZjj/cUKBcysl75jUCaYa7V9sVaOP5r
1fihq5+gPOWKbNH301Bt7cDJb/kIvKCOXGePGQjOu7nJgfwAtkfvs0yXQrUh
ij0ap4DnwU+a6l30ILhiWI0KBsBwON5vh+0sfEXWBEnE74BqJSleZpiFC5/K
kz7lvAW/sOMt4RQjIPPUGJ3xDej6/xx21BihSHdnW61ACsGHRLzNU0b4hsvi
qiukkKf/4M/VGYE3T/Fk+TUpuLksypkwI4FHd3erTpNCaEyOt9SBhOyIsrHb
AVLgdycd4PmScOHOrd8uCyWwou1blXU6CbvD+S/jervhTHQAn3WOhF7Z6pnC
V93wQhnNzLho8ngpQ/a0G7ab5+WO5Jj2SXt+REk3nEV6hugmCbGlvIQNCd0g
evr3YW4jCWGaXJKhwsE+fNyxqZmE5kzG6gPvcNjZZ/t8QkiCv1VHclUnDoR2
o22imAS02KbTvQYHJ9+6hyw5CT4hObedTuGwW9i1I0NBggD3wqNScPgj6l9j
zZDJfxKZF8TiwDy+ZIs7QYJXqtVBm0AcLlPXa2PHSajWVZaGMXDAeXFlPK3J
uSESrisOLm5poSK9yecNWbba4rD3Lx5Bkia/yV1HoeDwH2FNem8=
            "]]}, "Charting`Private`Tag#3"], {}}}, {}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{-1, 2}, {0., 3.41205761933616}}, 
         "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
         "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
         "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            RGBColor[0.945109, 0.593901, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{0, Small, Small, Small}]], 
           Directive[
            Opacity[1.], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}]], 
           Directive[
            Opacity[1.], 
            RGBColor[0.9, 0.36, 0.054], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], InsetBox[
     TemplateBox[{
       StyleBox[
       "\"Low Disc. Precision\"", FontSize -> 10, StripOnInput -> False], 
       StyleBox[
       "\"Med Disc. Precision\"", FontSize -> 10, StripOnInput -> False], 
       StyleBox[
       "\"High Disc. Precision\"", FontSize -> 10, StripOnInput -> False]},
      "LineLegend",
      DisplayFunction->(FormBox[
        PanelBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 3}, {22, 3}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {22, 3}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.6233333333333334] -> 
                    Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 3}, {22, 3}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {22, 3}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.6233333333333334] -> 
                    Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 3}, {22, 3}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {22, 3}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.6233333333333334] -> 
                    Baseline)], #3}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> 
           False], {FontFamily -> "Times"}, StripOnInput -> False], 
         Background -> Automatic, ContentPadding -> True, 
         FrameMargins -> {{1, 1}, {1, 1}}], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "\"CMU Serif\""}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.9, 0.36, 0.054]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "\"CMU Serif\""}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.365248, 0.427802, 0.758297]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "\"CMU Serif\""}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.945109, 0.593901, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", "Panel"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Column\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "1"}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"{", 
                 RowBox[{"22", ",", "3"}], "}"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.72, 0.8}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
   DefaultBaseStyle->{"PlotGraphics", "Graphics"},
   DisplayFunction->Identity,
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox[
       TagBox["\"Stock Price\"", HoldForm], TraditionalForm], None}, {
      FormBox[
       TagBox[
       "\"Expected Climate Beta \
\\!\\(\\*SubscriptBox[OverscriptBox[\\(\[Beta]\\), \\(^\\)], \\(j\\)]\\)\"", 
        HoldForm], TraditionalForm], None}},
   FrameStyle->Automatic,
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{{0}, {0}},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->All,
   ImageSize->270,
   LabelStyle->{FontFamily -> "Times"},
   Method->{
    "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotInteractivity:>True,
   PlotRange->{{-1, 2}, {0., 3.41205761933616}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{
      Annotation[{{{{}, {}, 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]], 
            Line[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAxV4h3///779w7njd5EsLQCb2NUx2
+O+/7E8sFYZJC0CIjUq57PDvv2ix30wnRwtATLxzk9nh779hdEa8aUILQNIZ
xkezw++/UfoTm+44C0Dg1GqwZofvvzIGr1j4JQtA/Eq0gc0O77/2HeXTCwAL
QDQ3RySbHe6/e01RyjK0CkBAvxHfohLsv5txAjS+DwpAL6CnnlIq6r/kEvWM
L3YJQJShpoiWS+i/pZ5bBKTfCECWUkroRkTmv3rvmvhVPAhAely5TJ9f5L95
vRvc7aMHQPsVzSZkUuK/i1B1PMP+BkDy70krvU7gvxTOQrubXAZAl0UkaXzb
3L/IyFEpWsUFQIMK/mZXyNi/kIg5FFYhBUA1gW5ugvrUv4HFYu43iARA0zix
ytU/0b/q7P/mHPIDQFWfeiQEaMq/Ztl1XD9PA0CQMMDG/NrCvwxDLcFHtwJA
ewAxf05Xtb/Gcb2ijRICQBuOqhATFZW/+IrBotZwAUCu5AGhCW+jP1MhB5IF
2gBATwsHuOr4uT/DfCX+cTYAQJkumTyIksQ/uaoKs4g7/z8XGZxG6crMPxPm
e2Oo8P0/3kB903xu0j9b9tRQzqv8P2zDFfo0MtY/+ACxHMB8+z/5/wJ3iELW
P0o3x8+dd/s/hjzw89tS1j+ebd2Ce3L7P6G1yu2Cc9Y/RNoJ6TZo+z/Wp3/h
0LTWP5CzYrWtU/s/QYzpyGw31z8pZhROmyr7P2QJ/zTld9c/mogxQFUW+z8W
Vb2XpDzYP1nLd3922Po/o5GqFPhM2D+tAY4yVNP6PzDOl5FLXdg//zek5THO
+j9LR3KL8n3YP6ek0Evtw/o/gDknf0C/2D/yfSkYZK/6Pw52FPyTz9g/RrQ/
y0Gq+j+bsgF559/YP5jqVX4fpfo/tivcco4A2T8+V4Lk2pr6P+sdkWbcQdk/
jDDbsFGG+j94Wn7jL1LZP95m8WMvgfo/BpdrYINi2T8xnQcXDXz6PyAQRloq
g9k/1wk0fchx+j+uTDPXfZPZPytASjCmbPo/O4kgVNGj2T99dmDjg2f6P8jF
DdEktNk/0ax2lmFi+j+amEC6JbfZP5fs5spvYfo/nNOdbA==
             "]], 
            Line[CompressedData["
1:eJwVxX841HcAB/DDsB91YXN7YpeozI94MvHMj3kf0nnEk/l5edgtMdZ4hLGh
2epJZZjb4olkafNMWUmeHiuj6I7uyY+0Y7pjl8qkfb9xzv3y5e6z7Y/X83JO
z4vLNGexWAH/+X8XYVBV+Z9yuNnuSqtLYXCkbJLv9Lccu6PkLfcEDKo010KH
LBWoi0zzEicw6J/P8HuLr0BsRObenmgGJ6WeBXFJCsSwQtwVUQyi29UdokwF
on7nbGAiGchzv3HbeEKBcB/pw4AIBmpNk6PVgAL+XM+0Wx8w2G4hMzMETmOL
VlV405vBaafQsWnvGbxsPXqx24bBfgE362eOElWv1K13TayiRGLmUvFiFkGU
zsFauAovr3GHaNVT5B1scBU+NsAULGN/NjEHzvBCcki2Ae81+9Rwn8wDki+K
nZ/roZpxfRI0twDlXKBRmK3HiDh2V5fkHywbrlzeodbhjbXJ13pHaVScTwtf
ytchS16r5N5YRK1vnzmP0eKXfUckRZEqsNWxHvQJLYbjhj5y3bcMG942nLfU
4uur3brjwWocP9ZaIvtOg4zOiXj3sBWUxGVcZLM1eGRV01Hmr8EsR7Y4Xr8C
21EbjYWrFgPmxa2LTis4GnTXNOmug3N5Mt+mRY0i40brhHf00NHPN91yU6Ml
69SE4zYDYqjuwcy2ZYhCR6o371iFo23Ps1y3ZbDzfg0T2zNI9ch513hdhdt7
bvZ1O6zBSZYqEPmoYMwV+iex13FJaUhLLFyCmfUfjZ7GdVh90jLNO70I/8iC
u1EsE9I3DPrurnwJZubKgr3ahEuN/Cm/Jhp7cqSiGJ0J1Q1/uW46S6Nm7dn7
FYwJ2WcLixd+oLHVwbFSY06ws/6CfdO3NPjJle6yNwk6Rfp4VimNuoeZh0V+
BL2n2sbvC2h4D22hXy8hGCmyvi/k0PgyMbAu7CuCjs+bNwfY0RiYSwwuPUYg
KvT91I5NI8GipvpFJUFCvvDVQUsaZby1ndJzBI9yftvroaUg7ZnKreglmD2U
JdbIKNhFrdj39RP0pxvtxh5QSJWzb2skBD8ePJPeNkxhSR/BzhglSBfeMUsR
U+D43egIUxLMp7zNu9NF4WPJg6TSpwTSA1drGzooXI6nTNfnCdoF4Y/z2ykE
F7jsd14iOJyUV779JwonzUL0ghWC6ETLMWMzhXHRgQsiPYF3QhN3qpGCw9Yi
vnSNwCbeJ7eznsKha6IlQgjUH97rrfyewr8wathH
             "]]}, "Charting`Private`Tag#1"], 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.365248, 0.427802, 0.758297], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{Small, Small}]], 
            Line[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAxV4h3///77/ruuyxihwJQCb2NUx2
+O+/0CTNcIcaCUCIjUq57PDvv7aOrS+EGAlATLxzk9nh77+BYm6tfRQJQNIZ
xkezw++/FgrwqHAMCUDg1GqwZofvv0JZ859W/AhA/Eq0gc0O77+a9/mNItwI
QDQ3RySbHe6/SDQHarqbCEBAvxHfohLsv0rr0VgUEAhAL6CnnlIq6r9OAEpg
r40HQJShpoiWS+i/NhMbNdkNB0CWUkroRkTmv8RjnEAtgwZAely5TJ9f5L9U
EstkwgEGQPsVzSZkUuK/iv6pv4F1BUDy70krvU7gv6Po4efP6wRAl0UkaXzb
3L++MMcoX2sEQIMK/mZXyNi/f7ZcoBjgA0A1gW5ugvrUv0OanzATXgNA0zix
ytU/0b/qezuOnN4CQFWfeiQEaMq/NpuHIlBUAkCQMMDG/NrCv4UYgc9E0wFA
ewAxf05Xtb960yqzY0cBQBuOqhATFZW/UowtZBG+AECu5AGhCW+jPyyj3S0A
PgBATwsHuOr4uT9X73tcMmb/P5kumTyIksQ/XlSXjuZi/j8XGZxG6crMP640
Ey7vSf0/3kB903xu0j/EEEFoFTb8P+iiF7SLfdI/JTPvCRAy/D/yBLKUmozS
P4RVnasKLvw/B8nmVbiq0j9Gmvnu/yX8PzBRUNjz5tI/xiOydeoV/D+CYSPd
al/TP8s2I4O/9fs/JYLJ5lhQ1D/SXAWeabX7PzDkY8dnX9Q/MX+zP2Sx+z86
Rv6ndm7UP5KhYeFerfs/TgozaZSM1D9U5r0kVKX7P3aSnOvPyNQ/1W92qz6V
+z/Iom/wRkHVP9qC57gTdfs/bMMV+jQy1j/gqMnTvTT7P/n/AneIQtY/LU0t
x2Ew+z+GPPDz21LWP3zxkLoFLPs/obXK7YJz1j8WOlihTSP7P9anf+HQtNY/
TMvmbt0R+z9k5GxeJMXWP5pvSmKBDfs/8SBa23fV1j/nE65VJQn7PwyaNNUe
9tY/hFx1PG0A+z9BjOnIbDfXP7rtAwr97vo/zsjWRcBH1z8Ikmf9oOr6P1wF
xMITWNc/VDbL8ETm+j8gpoHMOGjXPwbyfEv14fo/ecicAA==
             "]], 
            Line[CompressedData["
1:eJwVxX0wm3cAB3Ck19Z0qZbYqDgvnXLDtJu3SvdVanFlY5TpTjsqyox46dy8
Trnz1knF2Jnu3LrRl6lSq0NNurRJjTbmpSxhZvXEqbd5DYkn5Lftj899bC6k
hMYZ6Onpcf7z/7eTcusqS+T41qznL/M/aVSqM9tjauU4HDRUYKyg0ZQadm9v
lxwV/C5B/jANr7s+zlFP5ZCQZpOOARo9c86NLeNyaIT1tUsyGlMX9jZEaOWI
uV9+49xvNMzCRTUNHAWOac6LvLtp1Fc2mmqCFEgoC/O79ICG6+81lYHnFPjO
IqCvsZ1GIDf9q7U8BXafODpq3krjsteRfJ9fFVAUMP5R36CxwK68OHFyDHlG
ty3bKmiIZ3huptxxPLFazXGKpREcyY6vN5tEU93is8nuLWRJ9W2L5l7AlR1q
P2q+BWfnQYugFQosby69kaCBjvOc+dnINH65YvLDS4kax+qOCthTMxBnpjxi
HFBjZcJ+ynt6Frx4t8XYmE3IJCGuP0vn0VcyPFct2oCRdtSwu38RgvdI9IrR
BuLHKibZbUsw9WDcsbyows3AVGlGwAo8HdJIuWQdz0J7ztsHrkLUwe8/YrKO
/Lvtm4WcNehn+fGr+Gvg3RsJc/Rdx03FrVLH7lUodguac9xVMExUZghZqzjQ
b6xi2G+AuV2a7J2+glzvx7pRx028iMwV2RQuI2Pn1T1nLNVwYH/jz/dYwvX4
kpFDdhq4WvWL9w8tQnhSVm7+xhY+tx4L8UpbADPljq+ERYNTXFW8y3EeD091
itottBA7JLccfjKLneRP3COY2+h12cibyXwJ/T3DtW/ubOOg+4cxrm/PwD0g
/fFpPR1Ms2UeA0PToCeaZllrOly32by/v1SJU0m9wvc3dShskwYHFyoh0Co9
i2gdeNyqhau5SlhbHCpTGRA4JbvaMdOU4H5U5vjchKCzM/HrfR8rUT0Ulyh0
IxgJ/jvV0EkJlx6rxVeyCHZ92evMGKSQGX682jePYNa4ps/3KYVH0+Gc7AIC
WX1cXKGUwhmGoHyujKC6z6BO/wGFHB+tU+81AmvWiX16P1Lo7ZInF3UTeDa1
zm9fonDw9DpLJCawxOViDp9C1BjzoUpKsD30gW1uAoVltT+T108gVS+c1UZR
MHNra/adJAjxs+/b8qcQLR2IyKYI3vlDxfPyofBT2IKudYbg9U8lelnHKXDS
bYNtlgkmrkZ7alwoFOu/q45cJxDbvDXi4UhhUHj2e6GaoKFtJ+ULOwoW1hnc
Xi1BKVdm1MGmENsiXCaEIGn82q3N1yj8C14P8nw=
             "]]}, "Charting`Private`Tag#2"], 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.945109, 0.593901, 0.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{0, Small, Small, Small}]], 
            Line[CompressedData["
1:eJwV0H8803kcB/DNj7m4JKKj3NGNB7U6/SCx6/2xhGypSHhcl5If/U4/VKSr
dCseR+ZaovKrHg9cXd1EHin6iuWxYnxt09FpsZZwy3fNj7HZvrf74/V4PV6P
538v94SjkUlmFAplsyn/98td7u9JksCecbqmSZKGPKd8OaemCaxXfH8gzkhD
2XnhDSo1gU1GZItqZ2mI03jiWt8gga3cFlSUMkNDEue20NpWAquMrl3bpaGh
AdkBQfIVAivYdeNU6Ucamg2vuyi2JbB9qfETzHYaWrM2lH7LdQxz4BNEeiEN
IWz++zv2KuzNYHu5A52GfiivKo1cOopZ36+zZzVYIn5FZXYhexiLPaH8nL3V
EhVGhg+HBA9hdiw8i5BboIydDZyyeCUWmCvqHT1pgfSOYs/ESAXW1Z85bGlm
gTTEpmVNEQPYOcaZPesKzNGNjfT9mf/0YyXa87eoXubokrUxOUbUi3m+2pA/
8tgM+V48ciRLJ8OWOC0ITmabIal/zese6Mb8E5Yl6BVUFF2WQbfY9xqrrzOu
ExyjIp5Pc9vs2xasOksumbGiorOUlecjYh5jFjEZHnuvU9Ciq/fsHByvY+lL
fx5U0inooZJaMefoXcA0RY1Tp0nYYmP1ZHS6AfaUEN57+UYoXlHMzP5dCMPr
451nMAMsdL4dMvK6A1ifQzI7+2ZBjs5JM49IoKu4sUam1cOhVkfdmlVvIOhH
9n4LDz00DyX6Lgh9C5c/b+OfQDrYEuuactdJDgL+saCvD85AupC6hDsyANYB
373oKZ6G5ctxF45aAUxVcJ28XgtGptT2oEwJW69f8p7/YQpWlazMcx0cggB2
gP0lwySo+z0HA5XDEEP+IvZYPAkdrVt9HglHYce9fmvNpgmw0ffMaRSrYGnC
o2eGpHFI6cuXu9aNgdKuYmxVgQYq2anCtDA1dDa5ThQ1f4H2yLZdnuwvkH/a
/vB6uRrOP6ifymJqwMfLbd9cGzUkCmRR3qxx2N7OfrCWMwa9tLyHZ/0mgLYm
52pVuQrmi+0mzD0ngV6sWJBuGIXMwBZjj/cUKBcysl75jUCaYa7V9sVaOP5r
1fihq5+gPOWKbNH301Bt7cDJb/kIvKCOXGePGQjOu7nJgfwAtkfvs0yXQrUh
ij0ap4DnwU+a6l30ILhiWI0KBsBwON5vh+0sfEXWBEnE74BqJSleZpiFC5/K
kz7lvAW/sOMt4RQjIPPUGJ3xDej6/xx21BihSHdnW61ACsGHRLzNU0b4hsvi
qiukkKf/4M/VGYE3T/Fk+TUpuLksypkwI4FHd3erTpNCaEyOt9SBhOyIsrHb
AVLgdycd4PmScOHOrd8uCyWwou1blXU6CbvD+S/jervhTHQAn3WOhF7Z6pnC
V93wQhnNzLho8ngpQ/a0G7ab5+WO5Jj2SXt+REk3nEV6hugmCbGlvIQNCd0g
evr3YW4jCWGaXJKhwsE+fNyxqZmE5kzG6gPvcNjZZ/t8QkiCv1VHclUnDoR2
o22imAS02KbTvQYHJ9+6hyw5CT4hObedTuGwW9i1I0NBggD3wqNScPgj6l9j
zZDJfxKZF8TiwDy+ZIs7QYJXqtVBm0AcLlPXa2PHSajWVZaGMXDAeXFlPK3J
uSESrisOLm5poSK9yecNWbba4rD3Lx5Bkia/yV1HoeDwH2FNem8=
             "]]}, "Charting`Private`Tag#3"], {}}}, {}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{-1, 2}, {0., 3.41205761933616}}, 
          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
          "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.945109, 0.593901, 0.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{0, Small, Small, Small}]], 
            Directive[
             Opacity[1.], 
             RGBColor[0.365248, 0.427802, 0.758297], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{Small, Small}]], 
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]}, {
     DisplayFunction -> Identity, PlotInteractivity :> $PlotInteractivity, 
      DisplayFunction -> Identity, PlotInteractivity :> $PlotInteractivity, 
      DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, DisplayFunction -> 
      Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {{0}, {0}}, PlotInteractivity :> $PlotInteractivity, 
      DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, DisplayFunction -> 
      Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
      PlotInteractivity :> $PlotInteractivity, DisplayFunction -> Identity, 
      PlotInteractivity :> $PlotInteractivity, 
      DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, AspectRatio -> 
      GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, 
      AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontFamily -> "CMU Serif", FontSize -> 14}, 
      DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
      FrameLabel -> {{
         HoldForm["Stock Price"], None}, {
         HoldForm[
         "Expected Climate Beta \!\(\*SubscriptBox[OverscriptBox[\(\[Beta]\), \
\(^\)], \(j\)]\)"], None}}, FrameStyle -> Automatic, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 270, 
      LabelStyle -> {FontFamily -> "Times"}, 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{-1, 2}, {0., 3.41205761933616}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[FontFamily -> "CMU Serif", FontSize -> 14, 
         Opacity[1.], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[FontFamily -> "CMU Serif", FontSize -> 14, 
         Opacity[1.], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6], 
         Dashing[{Small, Small}]], 
        Directive[FontFamily -> "CMU Serif", FontSize -> 14, 
         Opacity[1.], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6], 
         Dashing[{0, Small, Small, Small}]]}, {
        Style["Low Disc. Precision", FontSize -> 10], 
        Style["Med Disc. Precision", FontSize -> 10], 
        Style["High Disc. Precision", FontSize -> 10]}, LegendMarkers -> None,
        LabelStyle -> {FontFamily -> "Times"}, LegendFunction -> Panel, 
       LegendLayout -> {"Column", 1}, LegendMargins -> 1, 
       LegendMarkerSize -> {{22, 3}}]], {0.72, 0.8}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.879722875486556*^9, 3.879722913183867*^9}, {
   3.900173049528985*^9, 3.9001731037261667`*^9}, 3.900173159825143*^9, 
   3.900173308513225*^9, {3.900173843582076*^9, 3.900173856251858*^9}, 
   3.900173899118058*^9, 3.900173971811688*^9, {3.900174027919704*^9, 
   3.9001740354705*^9}, {3.900174070507162*^9, 3.900174138665915*^9}, {
   3.900174212284729*^9, 3.900174248017005*^9}, {3.900174282700144*^9, 
   3.900174381299487*^9}, {3.901313866384723*^9, 3.90131388720012*^9}, 
   3.901320189159265*^9, 3.90132022561934*^9, {3.90132027326639*^9, 
   3.901320375214044*^9}, {3.901321191605329*^9, 3.901321199082673*^9}, 
   3.901364856244944*^9, {3.9013654500979633`*^9, 3.901365497449748*^9}, {
   3.901365560023242*^9, 3.9013655987838583`*^9}, 3.901365640944471*^9, 
   3.901365676216751*^9, 3.901495125517219*^9, 3.905431531251073*^9, 
   3.933593429751401*^9, {3.972601100124818*^9, 3.972601103600564*^9}, 
   3.972601213713304*^9, 3.972652832611631*^9, 3.972653162158718*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"168cde3a-ee17-4b92-afed-3f919acdd63e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "0.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "0.5"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "4"}], ",", 
     RowBox[{"zB", "=", "0"}], ",", 
     RowBox[{"\[Kappa]", "=", "1"}], ",", 
     RowBox[{"\[Mu]C", "=", 
      RowBox[{"-", "0.25"}]}], ",", 
     RowBox[{"\[Mu]M", "=", "2"}], ",", 
     RowBox[{"\[Rho]", "=", "1"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eVal", "=", 
     RowBox[{"effval", "[", 
      RowBox[{
      "\[Mu]\[Beta]", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", 
       "\[Lambda]G"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"pricepl2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"OverallP", "[", 
         RowBox[{
         ".5", ",", "xp", ",", ".5", ",", "1", ",", "4", ",", "0", ",", "1", ",", 
          RowBox[{"-", "0.25"}], ",", "2", ",", "1"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"xp", ",", ".1", ",", "2.8"}], "}"}], ",", 
       RowBox[{"FrameLabel", "->", 
        RowBox[{"{", 
         RowBox[{"\"\<Informativeness \!\(\*SubscriptBox[\(\[Sigma]\), \
OverscriptBox[\(\[Beta]\), \(^\)]]\)\>\"", 
          ",", "\"\<Aggregate Market Price\>\""}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "->", "Solid"}], ",", 
       RowBox[{"ImageSize", "->", "270"}], ",", 
       RowBox[{"Epilog", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
            RowBox[{"InfiniteLine", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"eVal", ",", ".1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"eVal", ",", ".2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",",
           "\[IndentingNewLine]", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{".4", ",", ".61"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"1.1", ",", ".77"}], "}"}]}], "}"}], "]"}], ",", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1.3", ",", ".77"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", ".61"}], "}"}]}], "}"}], "]"}], ",", 
          RowBox[{"Inset", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              
              RowBox[{"\"\<Declining price \\n convexity dominates\>\"", ",", 
               
               RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "10", 
               ",", "Black", ",", 
               RowBox[{"TextAlignment", "->", "Center"}]}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"1.9", ",", ".58"}], "}"}]}], "]"}], ",", 
          RowBox[{"Inset", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              
              RowBox[{"\"\<Increasing variablility \\n of beliefs dominates\>\
\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "10", 
               ",", "Black", ",", 
               RowBox[{"TextAlignment", "->", "Center"}]}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{".65", ",", ".58"}], "}"}]}], "]"}]}], "}"}]}]}], 
      "]"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9054311418846617`*^9, 3.905431176604554*^9}, {
   3.905431223864706*^9, 3.905431512996993*^9}, 3.905431583427098*^9, {
   3.905431617761818*^9, 3.905431634159025*^9}, {3.905431714381268*^9, 
   3.905431725011458*^9}, {3.9335934948255577`*^9, 3.933593497452924*^9}, 
   3.972601203548037*^9},
 CellLabel->"In[36]:=",ExpressionUUID->"c3586a3e-b1bd-4f78-9b25-dfbb0ce9c367"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwV1nk4lN8XAHAZZE+bFJWStFgq4oc4LwkhlWT7prKWJUUilJBSESoKFSH7
ToiIUNm37LuxvhEz885CWX7XX/N8nvs+d849dzlnj/VNIzt2Nja2DevY2NZ+
Nec1H8dEl8CRm3oSyfJjEDAy6j7cUgKPmdL+WxXHoKrNz2YfVymUsbHsA/83
Bic/fcWy3UrhxwHz+qtqY6DlpfLvm/4XMFZfpGzWGQMd0rFb+HIZzDrmVtlY
jEFysJCM2NFKuH6dMy7Nbwwy41aFnSKrIbT2tFVLwxgUBuwXEqPUQ7K+XJLV
9XHIGnYic0y1QliOnUYNbRyuCHV0lWt1gOVMOseh2xMQHjti6TfTDUoJeuxm
zAkIM8/XHL3QD5abHJqPOkyCoNuBUn3OYRiR0Fy5MTgJHoLdkmVGoxDS0WVy
QmcKDLzvvY8njYFYVX/Ho4QpIG9xH+LrHYd9Qp4k1+UpGD5laHgqbBLq7Z06
KvSmgQ870jB8YhpYLyJvuIWh3+u2G1cFf4ND3mgPf/s06B3wefzn2wzsihYd
qOTGgb3R/YJ+3QwMtZsdj+XBofSmi3ha6wxcMwxf78OLw+Fiq1Lb4Rlo5J0X
lufHgV9bd65/aQZaX7mNvtuAQ4vNVpN6pVlQd6+TNBXGwTguRzIlaxYCMlxu
2EvgYCk8XnM1+g/4cu3loqjioNK7Ufjdhz/wUWXkWOoJHETewbXulD9w4XDI
4BU1HNr3vOUxLPoDHFLZmU3qOGjLGBmq/voDkrXixxI1cJDVquzeKjAHx1Np
vcd1cFhxffe73m8Obov1xC6exyGuyVjo+PV5EAqW5P1nh0PXDvVYwmUefCDh
wRN7FP91Ken8O/Pw+jdP4NZrOHiz/9WRezgP90dilGWvo/iV4h4cjJ2Huhu1
phaOOPDG43M7O+bBXcXn6nsXFL9KhT1JnAJ/1wV/bPbAoXOkIMtaggK09VWs
M5443ApKpX/bTwEeGt7biJzS8SLAT4YCg8cE9Ovu4rDlpm3ssgoFbmQmj5R5
4zCfyNPFukgBs7azvaG+OHwUMD41G0yBaLnWdUOPcHhv1h8ZEUaBkh2L38we
4/A60XryxCsKVPkeXG5HDlJ2DXoeQwG23Pjx70E4ONqF1smmUUA3j+mZ9BSH
o+W1Z1x/UIDXwClX/zkOX53VTJhsVJDu0nJUiMChuLgmOZaDCuHk3uBY5Fx2
A5Y2Nxp/5nuAOxKH+CiLqDcbqKBTxGrvRQ6s8ez73y4qGHXnznq8wUFfLP+y
jyoV1ut4yUfF4NDTsP8amwcV8v01hDw/oP3p5zNx9KJCEl9GfD2yxCxFq+Me
FUIu6VfsjMfBhf/L3tSHVLikfDSuCpnzzNmhsy+oYHgkisqViMOxZs+LcZlU
+MPgHPVKwiGktfak+hgV9hUuz3Cn45A/knUsdZIKOz7mcRgid1Ne7tn0mwpR
lYlpL5H3brRcnaCg9XmcjNqRgUPJeWrp8xUq3Anx5JbMxGGyffuxwe00GLgz
rbAvGwes01H83jkaePh8rGjIw6H6KVlEzpgGrZ92znLlo/OobrGRbEqDEaWi
cA1kg5TT7LpXaLD+mrZmIbK514HxzS40EAma1X5dgIPbzsmUjGAaCF6K7lIv
xIHRZvnhchgNJrxkH7ki333cGbXxFQ0kpaYzEpF952ueesbQYDWo3oqrCIfg
b4lOJ9PQfD3GN78jf7Szkuv/QQMT9saNhz7jILWjVyq0ngbKPe2axsjpzefE
NZppQCkkzd5HzlXCNqZ0ovG58eQW5HKe3YTbOA0sJXK+Opeg9X59PSM5TYOc
9UJ5L5Fr3ATHe2ZowFPzXvQzcn3/coc6QYMNRzXM15Wi+5Q1UMTLTkDtYJ7H
c2Rza+Occk4CrgY8PJSDPCDcmHKLhwDBwUCTVmTygy9RXUIEkKVEtm38gs77
+RjvhN0EWGsHq4QgczNN1VXUCLi3xOB1KMNhVym+0I8R8Ox1bJM/sryvT8F9
LQKIPTYCMciXueIOfNMnYNZLg6MO+ZPw5CZdCwJeKFq2iJejePs8m3BL9L3V
vPdx5OFYnifBVgQkXP6QeBqZV0pmufk6AbzYVedbyFeV3KcuehLQMmDVX4zs
8Y8zgeVNwLd6+s1a5OCKN5eifQmQu5vm34NcpPOlbeARAYwQLzEWciPfmRDf
pyje/Mgkzq84jLYMaYs/J0BhS2fGZmR+M/YymwgCynkr5GSR94pFeHBGEVB1
xTFLBVlpRPJoylsCdrqqpGojW18/nfw7gQA/fb2tlsh3pfuvhiQTENH1LOga
8nOKs6hsOgG0eKqHK/Lnu+HhrnkEHPGTb3qI3Hxir/7mQgLmTTYohCCPsX3i
LPxMwHfGJpEI5IWaU5UmZQScqFD3eoss+LTbe6GCAFHhV6YJyPvOOByPqSbA
3lKoIBVZeeO/edWfaL8WioKzkQ07Q9IH61G+9YJGC5Bto3fZPWgmIKfY/9Nn
ZG/L3N172tF6E5M5ypHD9mj2VXUS8M+N2VaJ/HHiV4RtLwGDT13FapBL0+zO
cg0SIH5GZPwHcusNFk/qCAE1e2YO1CFPHH1ac3qcAIrz79/1yH8ZOx7MTBFw
MEL4UCOyUGmm8vMZAiSWb06ueb+vOl12noBeAdbuJmRVzdbsVhoBXtKZXWvj
57isHdyYKL8VYbxrtq8nJLb8JeCDTMKXtfnvhT4aKlwmoG9wDK9FfmG0Ldp0
HR0uK12MXIsvWTjtwiIHHZLimeXVyGV9KoJvuengGFhrs7a+9tjG2hP8dMjR
aXhchjxlffnh0Ab0/YXV/Wv5WdpPUfPbTIcuITuttfxtmvFf2LONDqyppaEs
ZKmczQXVO+iwSfMnMwX5xO2kG3a76ODwpCY4Hvnav1pyqiQdRPzMZV4hpwd+
VuU/SIdf197+CEaeFUiNuClNB28L7rm183BLPEhbUZ4OI6W2U27I+WkecdGK
dDjSZVzigMw4Zr+wpEyHZFPX7VfX9u/UqfRqjA7//T4SqL+2vmYFkpQWHbrT
O0Ix5BXTfZee6dChXy5Z6jjyQ0eS4HlDOkhM/yLtRA4J++Y69B8dLL7Z2E+h
+9EsklevcQXNb/yAvHZ/hBI+SCRZ06HVrWG2Djny04NOJwc6PClmZqQjx/aq
KS960EENS+ywRx6xlnl5yZsOqtxnqoyR986KzVTcp8Oy7CF1TeSUlX/vHgfS
oY7Lb0QUOVeilG3LSzr8nUlsWXsfaJlp5p6RdIgopMl+QlZQjM7vi0LxVniK
xSKX6N61jY+jQy/X/oRbyFU3FGtls+iwJ2mnmRAyB0tyz8tcOkSmHTjIQu+V
jt9Wb0YBHWYGnJ8MIje+pB8uK6VDk34CNRW5szg/7HQt2v/iBhcVZBGNhOnM
BrS/sel5O5Et6l9oCLXQYSHvewAb8tDALaKrkw6jg3ktNei9nF4nZ2o7Rgez
Wectush/9TN2PVihw5no6tPK6D2O8ZLxP8zOgH9X39hvQlZJyRnr5mSA3uHi
5d/offdi/5R6RIABGj8HYmKQFz6XHSOLMmD+UHM4UYwDS7JZ+5QyA6olvjiF
oHry+sK5NOoJBizlBstYIiv6t/PFYgwwtc11kEH2GOhqZeowoO38wrlGVJ+Y
L4ctUk0YwI+H95OQ6asUFz53BpjI/DdqjupdhMzttmJPBsQdzdLdi6zwH0Pe
1ocBkR3/HfqN6uPtosWFsgAGfBBvu3QXmebM/tDlBQP0+Q77hqJ6S+nd/KYt
mwHZYtsK4nNw+FOgWPEGZ4Dzm1LcBtXv0mThSs4/DLgt/PqGOPLjaGblbQqy
PPv9AVTvxR8UVZ1lMSBMLlT9ArKRnuKP9ZxMOBMTYKCaht7vkeNNnuJMoHqd
jmAk4+AncLzf1JQJDvGVXZsSUD1n2zrw3YIJeZ3xTZWoH9lO0AfkLzOh21Pi
nAtyfs+noQ12TMjYzLvwE/UzE4kK5J9uTKgXvf3rThwOeioKuFIoE0b4D5Z8
eYfD5mvyrG3fmehc9p6kvEb9gINMqXstEzj/3Xz9ArnVSep+WwMTQFbd6xhy
6C1RUnA7E1rLA+bdUL/F603asDLMBKsDX2LnXqF+/fmv/eN/mXDa+gp3WzjK
X/5tk9wjLKjQVeLXfIZD20pBoe47FsRuV2N0+KD5krCAuTgWBJg9/3MWWc+g
yTAikQWyX+9a16P+syp6cmo4HY0L7asq90L1VGH7Ds8SFjy6QTaLRf1rlKOv
b1IXC376Z45r30b1sktXh33jArDdIfkcR/3xfNZgz5dHC+Al1NT6xAT1f9tr
T0o8XQDX/K+CcxfR/I/ys5+FLIBehmufEXKEZVCg+asFUAreJSpqjM6vwNEj
rA8L4OibqpGM+vdA58CgY2ULcOXa3n0pBuj+HD6smEZbACmjuZMXNFG/knr3
1esri6A+bLLjojQO1JKy/AL9vxCa/+1SMHMaVHIDzfzl/8HUk0W9dyXTUEwt
jyziWwIto908T72m4ZXeByVZ5hLQx22WDktPQ+IccUugbRnC3/Q1RwxMgb5n
w5H3KSsQWPreMTNoCi5sM7h4M3wVZus1igYkpkBnXdyTDgU2bPAc/2p4xSRE
BMxGvUxnwxJO9N3fqD8JPmk090CRdZiSwR4bnu4JyK5SiTAMXIfN3TTjeHZ5
Al5c655QXlyHsTZ/XrrUMQ6C+dIkc3t2zJSzqdvTYBxUn3QZRQ+wYyKJeiGV
eWPw6VzVRN45Eja2qIq5bRoDZ/KJbTZGJKxH2mr3JqEx2OderLvFmITR6/xj
8gTGIPJNZoaHKQkb2t9rO889Bh5Dr11VL5Mw5w2DevarZPifs9NyjRMJu4PL
22rMkqE8aMvWnsckzLj3tEDWdzJ4bA/TfvqEhPnsKr2PVZNBNoPnrsozEnbS
53zwr0oyxDav9L17TsISS8R8F76QwW8r/sEqgoQtP1KuVssng2ZiufRMPAkr
LjjVURhLhh9f7bVWykgYuYVqdsmTDFkJ6X9/fSVhdmMMiWx3MkQ8nstNqyRh
gmqn7q26ksHa0GPnxRoS1vB0qeODMxlWBh8xMxpIWLXZ2QNDVmRQXP6Yat5H
woK0PlufNCDDztHpy3IDJMw9m8YdepoMHN+lt3IOkTC2O2ZqPdpkaA/55J87
iv4vafickwYZXMRqLNbjJCyQcN0XokiGFNUx/kIWCWs08nz2WZwMobulqp8t
kjAuPvUdSztRPkhOXlf/kbCCaFFlECWDVgNtgm+VhOkXm+6r2UqGwzmK70bZ
ODBKQgeFczMZNr3yNipm58Du70oy0BEiw4gFe4U1FwdG5vDNr+Ulw0917Tv/
4+bAxGSTyri5yZC999lhQV4OTNrW0kSXkwwC8La0hY8Du3K7riKJnQz/Bx2y
3WU=
          "]], 
         LineBox[{{2.5074892440187555`, 0.5625000000000582}, {
          2.5102852667180393`, 0.5625000000000625}, {2.51745250264063, 
          0.5625000000000745}, {2.5246197385632207`, 0.5625000000000888}, {
          2.551384953564617, 0.5625000000001209}, {2.5781501685660135`, 
          0.5625000000005704}, {2.604389205898851, 0.5625000000010818}, {
          2.6306282432316888`, 0.5625000000017286}, {2.659096204936784, 
          0.5625000000017676}, {2.687564166641879, 0.5625000000031383}, {
          2.7141283996580072`, 0.5625000000052693}, {2.7406926326741354`, 
          0.5625000000087172}, {2.7703462887860475`, 0.5625000000150292}, {
          2.799999944897959, 0.5625000000253824}}]},
        Annotation[#, "Charting`Private`Tag#1"]& ], {}}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]], 
             Line[CompressedData["
1:eJwV1nk4lN8XAHAZZE+bFJWStFgq4oc4LwkhlWT7prKWJUUilJBSESoKFSH7
ToiIUNm37LuxvhEz885CWX7XX/N8nvs+d849dzlnj/VNIzt2Nja2DevY2NZ+
Nec1H8dEl8CRm3oSyfJjEDAy6j7cUgKPmdL+WxXHoKrNz2YfVymUsbHsA/83
Bic/fcWy3UrhxwHz+qtqY6DlpfLvm/4XMFZfpGzWGQMd0rFb+HIZzDrmVtlY
jEFysJCM2NFKuH6dMy7Nbwwy41aFnSKrIbT2tFVLwxgUBuwXEqPUQ7K+XJLV
9XHIGnYic0y1QliOnUYNbRyuCHV0lWt1gOVMOseh2xMQHjti6TfTDUoJeuxm
zAkIM8/XHL3QD5abHJqPOkyCoNuBUn3OYRiR0Fy5MTgJHoLdkmVGoxDS0WVy
QmcKDLzvvY8njYFYVX/Ho4QpIG9xH+LrHYd9Qp4k1+UpGD5laHgqbBLq7Z06
KvSmgQ870jB8YhpYLyJvuIWh3+u2G1cFf4ND3mgPf/s06B3wefzn2wzsihYd
qOTGgb3R/YJ+3QwMtZsdj+XBofSmi3ha6wxcMwxf78OLw+Fiq1Lb4Rlo5J0X
lufHgV9bd65/aQZaX7mNvtuAQ4vNVpN6pVlQd6+TNBXGwTguRzIlaxYCMlxu
2EvgYCk8XnM1+g/4cu3loqjioNK7Ufjdhz/wUWXkWOoJHETewbXulD9w4XDI
4BU1HNr3vOUxLPoDHFLZmU3qOGjLGBmq/voDkrXixxI1cJDVquzeKjAHx1Np
vcd1cFhxffe73m8Obov1xC6exyGuyVjo+PV5EAqW5P1nh0PXDvVYwmUefCDh
wRN7FP91Ken8O/Pw+jdP4NZrOHiz/9WRezgP90dilGWvo/iV4h4cjJ2Huhu1
phaOOPDG43M7O+bBXcXn6nsXFL9KhT1JnAJ/1wV/bPbAoXOkIMtaggK09VWs
M5443ApKpX/bTwEeGt7biJzS8SLAT4YCg8cE9Ovu4rDlpm3ssgoFbmQmj5R5
4zCfyNPFukgBs7azvaG+OHwUMD41G0yBaLnWdUOPcHhv1h8ZEUaBkh2L38we
4/A60XryxCsKVPkeXG5HDlJ2DXoeQwG23Pjx70E4ONqF1smmUUA3j+mZ9BSH
o+W1Z1x/UIDXwClX/zkOX53VTJhsVJDu0nJUiMChuLgmOZaDCuHk3uBY5Fx2
A5Y2Nxp/5nuAOxKH+CiLqDcbqKBTxGrvRQ6s8ez73y4qGHXnznq8wUFfLP+y
jyoV1ut4yUfF4NDTsP8amwcV8v01hDw/oP3p5zNx9KJCEl9GfD2yxCxFq+Me
FUIu6VfsjMfBhf/L3tSHVLikfDSuCpnzzNmhsy+oYHgkisqViMOxZs+LcZlU
+MPgHPVKwiGktfak+hgV9hUuz3Cn45A/knUsdZIKOz7mcRgid1Ne7tn0mwpR
lYlpL5H3brRcnaCg9XmcjNqRgUPJeWrp8xUq3Anx5JbMxGGyffuxwe00GLgz
rbAvGwes01H83jkaePh8rGjIw6H6KVlEzpgGrZ92znLlo/OobrGRbEqDEaWi
cA1kg5TT7LpXaLD+mrZmIbK514HxzS40EAma1X5dgIPbzsmUjGAaCF6K7lIv
xIHRZvnhchgNJrxkH7ki333cGbXxFQ0kpaYzEpF952ueesbQYDWo3oqrCIfg
b4lOJ9PQfD3GN78jf7Szkuv/QQMT9saNhz7jILWjVyq0ngbKPe2axsjpzefE
NZppQCkkzd5HzlXCNqZ0ovG58eQW5HKe3YTbOA0sJXK+Opeg9X59PSM5TYOc
9UJ5L5Fr3ATHe2ZowFPzXvQzcn3/coc6QYMNRzXM15Wi+5Q1UMTLTkDtYJ7H
c2Rza+Occk4CrgY8PJSDPCDcmHKLhwDBwUCTVmTygy9RXUIEkKVEtm38gs77
+RjvhN0EWGsHq4QgczNN1VXUCLi3xOB1KMNhVym+0I8R8Ox1bJM/sryvT8F9
LQKIPTYCMciXueIOfNMnYNZLg6MO+ZPw5CZdCwJeKFq2iJejePs8m3BL9L3V
vPdx5OFYnifBVgQkXP6QeBqZV0pmufk6AbzYVedbyFeV3KcuehLQMmDVX4zs
8Y8zgeVNwLd6+s1a5OCKN5eifQmQu5vm34NcpPOlbeARAYwQLzEWciPfmRDf
pyje/Mgkzq84jLYMaYs/J0BhS2fGZmR+M/YymwgCynkr5GSR94pFeHBGEVB1
xTFLBVlpRPJoylsCdrqqpGojW18/nfw7gQA/fb2tlsh3pfuvhiQTENH1LOga
8nOKs6hsOgG0eKqHK/Lnu+HhrnkEHPGTb3qI3Hxir/7mQgLmTTYohCCPsX3i
LPxMwHfGJpEI5IWaU5UmZQScqFD3eoss+LTbe6GCAFHhV6YJyPvOOByPqSbA
3lKoIBVZeeO/edWfaL8WioKzkQ07Q9IH61G+9YJGC5Bto3fZPWgmIKfY/9Nn
ZG/L3N172tF6E5M5ypHD9mj2VXUS8M+N2VaJ/HHiV4RtLwGDT13FapBL0+zO
cg0SIH5GZPwHcusNFk/qCAE1e2YO1CFPHH1ac3qcAIrz79/1yH8ZOx7MTBFw
MEL4UCOyUGmm8vMZAiSWb06ueb+vOl12noBeAdbuJmRVzdbsVhoBXtKZXWvj
57isHdyYKL8VYbxrtq8nJLb8JeCDTMKXtfnvhT4aKlwmoG9wDK9FfmG0Ldp0
HR0uK12MXIsvWTjtwiIHHZLimeXVyGV9KoJvuengGFhrs7a+9tjG2hP8dMjR
aXhchjxlffnh0Ab0/YXV/Wv5WdpPUfPbTIcuITuttfxtmvFf2LONDqyppaEs
ZKmczQXVO+iwSfMnMwX5xO2kG3a76ODwpCY4Hvnav1pyqiQdRPzMZV4hpwd+
VuU/SIdf197+CEaeFUiNuClNB28L7rm183BLPEhbUZ4OI6W2U27I+WkecdGK
dDjSZVzigMw4Zr+wpEyHZFPX7VfX9u/UqfRqjA7//T4SqL+2vmYFkpQWHbrT
O0Ix5BXTfZee6dChXy5Z6jjyQ0eS4HlDOkhM/yLtRA4J++Y69B8dLL7Z2E+h
+9EsklevcQXNb/yAvHZ/hBI+SCRZ06HVrWG2Djny04NOJwc6PClmZqQjx/aq
KS960EENS+ywRx6xlnl5yZsOqtxnqoyR986KzVTcp8Oy7CF1TeSUlX/vHgfS
oY7Lb0QUOVeilG3LSzr8nUlsWXsfaJlp5p6RdIgopMl+QlZQjM7vi0LxVniK
xSKX6N61jY+jQy/X/oRbyFU3FGtls+iwJ2mnmRAyB0tyz8tcOkSmHTjIQu+V
jt9Wb0YBHWYGnJ8MIje+pB8uK6VDk34CNRW5szg/7HQt2v/iBhcVZBGNhOnM
BrS/sel5O5Et6l9oCLXQYSHvewAb8tDALaKrkw6jg3ktNei9nF4nZ2o7Rgez
Wectush/9TN2PVihw5no6tPK6D2O8ZLxP8zOgH9X39hvQlZJyRnr5mSA3uHi
5d/offdi/5R6RIABGj8HYmKQFz6XHSOLMmD+UHM4UYwDS7JZ+5QyA6olvjiF
oHry+sK5NOoJBizlBstYIiv6t/PFYgwwtc11kEH2GOhqZeowoO38wrlGVJ+Y
L4ctUk0YwI+H95OQ6asUFz53BpjI/DdqjupdhMzttmJPBsQdzdLdi6zwH0Pe
1ocBkR3/HfqN6uPtosWFsgAGfBBvu3QXmebM/tDlBQP0+Q77hqJ6S+nd/KYt
mwHZYtsK4nNw+FOgWPEGZ4Dzm1LcBtXv0mThSs4/DLgt/PqGOPLjaGblbQqy
PPv9AVTvxR8UVZ1lMSBMLlT9ArKRnuKP9ZxMOBMTYKCaht7vkeNNnuJMoHqd
jmAk4+AncLzf1JQJDvGVXZsSUD1n2zrw3YIJeZ3xTZWoH9lO0AfkLzOh21Pi
nAtyfs+noQ12TMjYzLvwE/UzE4kK5J9uTKgXvf3rThwOeioKuFIoE0b4D5Z8
eYfD5mvyrG3fmehc9p6kvEb9gINMqXstEzj/3Xz9ArnVSep+WwMTQFbd6xhy
6C1RUnA7E1rLA+bdUL/F603asDLMBKsDX2LnXqF+/fmv/eN/mXDa+gp3WzjK
X/5tk9wjLKjQVeLXfIZD20pBoe47FsRuV2N0+KD5krCAuTgWBJg9/3MWWc+g
yTAikQWyX+9a16P+syp6cmo4HY0L7asq90L1VGH7Ds8SFjy6QTaLRf1rlKOv
b1IXC376Z45r30b1sktXh33jArDdIfkcR/3xfNZgz5dHC+Al1NT6xAT1f9tr
T0o8XQDX/K+CcxfR/I/ys5+FLIBehmufEXKEZVCg+asFUAreJSpqjM6vwNEj
rA8L4OibqpGM+vdA58CgY2ULcOXa3n0pBuj+HD6smEZbACmjuZMXNFG/knr3
1esri6A+bLLjojQO1JKy/AL9vxCa/+1SMHMaVHIDzfzl/8HUk0W9dyXTUEwt
jyziWwIto908T72m4ZXeByVZ5hLQx22WDktPQ+IccUugbRnC3/Q1RwxMgb5n
w5H3KSsQWPreMTNoCi5sM7h4M3wVZus1igYkpkBnXdyTDgU2bPAc/2p4xSRE
BMxGvUxnwxJO9N3fqD8JPmk090CRdZiSwR4bnu4JyK5SiTAMXIfN3TTjeHZ5
Al5c655QXlyHsTZ/XrrUMQ6C+dIkc3t2zJSzqdvTYBxUn3QZRQ+wYyKJeiGV
eWPw6VzVRN45Eja2qIq5bRoDZ/KJbTZGJKxH2mr3JqEx2OderLvFmITR6/xj
8gTGIPJNZoaHKQkb2t9rO889Bh5Dr11VL5Mw5w2DevarZPifs9NyjRMJu4PL
22rMkqE8aMvWnsckzLj3tEDWdzJ4bA/TfvqEhPnsKr2PVZNBNoPnrsozEnbS
53zwr0oyxDav9L17TsISS8R8F76QwW8r/sEqgoQtP1KuVssng2ZiufRMPAkr
LjjVURhLhh9f7bVWykgYuYVqdsmTDFkJ6X9/fSVhdmMMiWx3MkQ8nstNqyRh
gmqn7q26ksHa0GPnxRoS1vB0qeODMxlWBh8xMxpIWLXZ2QNDVmRQXP6Yat5H
woK0PlufNCDDztHpy3IDJMw9m8YdepoMHN+lt3IOkTC2O2ZqPdpkaA/55J87
iv4vafickwYZXMRqLNbjJCyQcN0XokiGFNUx/kIWCWs08nz2WZwMobulqp8t
kjAuPvUdSztRPkhOXlf/kbCCaFFlECWDVgNtgm+VhOkXm+6r2UqGwzmK70bZ
ODBKQgeFczMZNr3yNipm58Du70oy0BEiw4gFe4U1FwdG5vDNr+Ulw0917Tv/
4+bAxGSTyri5yZC999lhQV4OTNrW0kSXkwwC8La0hY8Du3K7riKJnQz/Bx2y
3WU=
              "]], 
             
             Line[{{2.5074892440187555`, 0.5625000000000582}, {
              2.5102852667180393`, 0.5625000000000625}, {2.51745250264063, 
              0.5625000000000745}, {2.5246197385632207`, 
              0.5625000000000888}, {2.551384953564617, 0.5625000000001209}, {
              2.5781501685660135`, 0.5625000000005704}, {2.604389205898851, 
              0.5625000000010818}, {2.6306282432316888`, 
              0.5625000000017286}, {2.659096204936784, 0.5625000000017676}, {
              2.687564166641879, 0.5625000000031383}, {2.7141283996580072`, 
              0.5625000000052693}, {2.7406926326741354`, 
              0.5625000000087172}, {2.7703462887860475`, 
              0.5625000000150292}, {2.799999944897959, 0.5625000000253824}}]},
             "Charting`Private`Tag#1"], {}}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.1, 2.8}, {0.5625000000000582, 
            0.8045411705319864}}, "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {0.10000000000000023`, 0.5625000000000594}, 
           "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.1, 2.8}, {0.5625000000000582, 
           0.8045411705319864}}, "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0.10000000000000023`, 0.5625000000000594}, 
          "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         Line[CompressedData["
1:eJwV1nk4lN8XAHAZZE+bFJWStFgq4oc4LwkhlWT7prKWJUUilJBSESoKFSH7
ToiIUNm37LuxvhEz885CWX7XX/N8nvs+d849dzlnj/VNIzt2Nja2DevY2NZ+
Nec1H8dEl8CRm3oSyfJjEDAy6j7cUgKPmdL+WxXHoKrNz2YfVymUsbHsA/83
Bic/fcWy3UrhxwHz+qtqY6DlpfLvm/4XMFZfpGzWGQMd0rFb+HIZzDrmVtlY
jEFysJCM2NFKuH6dMy7Nbwwy41aFnSKrIbT2tFVLwxgUBuwXEqPUQ7K+XJLV
9XHIGnYic0y1QliOnUYNbRyuCHV0lWt1gOVMOseh2xMQHjti6TfTDUoJeuxm
zAkIM8/XHL3QD5abHJqPOkyCoNuBUn3OYRiR0Fy5MTgJHoLdkmVGoxDS0WVy
QmcKDLzvvY8njYFYVX/Ho4QpIG9xH+LrHYd9Qp4k1+UpGD5laHgqbBLq7Z06
KvSmgQ870jB8YhpYLyJvuIWh3+u2G1cFf4ND3mgPf/s06B3wefzn2wzsihYd
qOTGgb3R/YJ+3QwMtZsdj+XBofSmi3ha6wxcMwxf78OLw+Fiq1Lb4Rlo5J0X
lufHgV9bd65/aQZaX7mNvtuAQ4vNVpN6pVlQd6+TNBXGwTguRzIlaxYCMlxu
2EvgYCk8XnM1+g/4cu3loqjioNK7Ufjdhz/wUWXkWOoJHETewbXulD9w4XDI
4BU1HNr3vOUxLPoDHFLZmU3qOGjLGBmq/voDkrXixxI1cJDVquzeKjAHx1Np
vcd1cFhxffe73m8Obov1xC6exyGuyVjo+PV5EAqW5P1nh0PXDvVYwmUefCDh
wRN7FP91Ken8O/Pw+jdP4NZrOHiz/9WRezgP90dilGWvo/iV4h4cjJ2Huhu1
phaOOPDG43M7O+bBXcXn6nsXFL9KhT1JnAJ/1wV/bPbAoXOkIMtaggK09VWs
M5443ApKpX/bTwEeGt7biJzS8SLAT4YCg8cE9Ovu4rDlpm3ssgoFbmQmj5R5
4zCfyNPFukgBs7azvaG+OHwUMD41G0yBaLnWdUOPcHhv1h8ZEUaBkh2L38we
4/A60XryxCsKVPkeXG5HDlJ2DXoeQwG23Pjx70E4ONqF1smmUUA3j+mZ9BSH
o+W1Z1x/UIDXwClX/zkOX53VTJhsVJDu0nJUiMChuLgmOZaDCuHk3uBY5Fx2
A5Y2Nxp/5nuAOxKH+CiLqDcbqKBTxGrvRQ6s8ez73y4qGHXnznq8wUFfLP+y
jyoV1ut4yUfF4NDTsP8amwcV8v01hDw/oP3p5zNx9KJCEl9GfD2yxCxFq+Me
FUIu6VfsjMfBhf/L3tSHVLikfDSuCpnzzNmhsy+oYHgkisqViMOxZs+LcZlU
+MPgHPVKwiGktfak+hgV9hUuz3Cn45A/knUsdZIKOz7mcRgid1Ne7tn0mwpR
lYlpL5H3brRcnaCg9XmcjNqRgUPJeWrp8xUq3Anx5JbMxGGyffuxwe00GLgz
rbAvGwes01H83jkaePh8rGjIw6H6KVlEzpgGrZ92znLlo/OobrGRbEqDEaWi
cA1kg5TT7LpXaLD+mrZmIbK514HxzS40EAma1X5dgIPbzsmUjGAaCF6K7lIv
xIHRZvnhchgNJrxkH7ki333cGbXxFQ0kpaYzEpF952ueesbQYDWo3oqrCIfg
b4lOJ9PQfD3GN78jf7Szkuv/QQMT9saNhz7jILWjVyq0ngbKPe2axsjpzefE
NZppQCkkzd5HzlXCNqZ0ovG58eQW5HKe3YTbOA0sJXK+Opeg9X59PSM5TYOc
9UJ5L5Fr3ATHe2ZowFPzXvQzcn3/coc6QYMNRzXM15Wi+5Q1UMTLTkDtYJ7H
c2Rza+Occk4CrgY8PJSDPCDcmHKLhwDBwUCTVmTygy9RXUIEkKVEtm38gs77
+RjvhN0EWGsHq4QgczNN1VXUCLi3xOB1KMNhVym+0I8R8Ox1bJM/sryvT8F9
LQKIPTYCMciXueIOfNMnYNZLg6MO+ZPw5CZdCwJeKFq2iJejePs8m3BL9L3V
vPdx5OFYnifBVgQkXP6QeBqZV0pmufk6AbzYVedbyFeV3KcuehLQMmDVX4zs
8Y8zgeVNwLd6+s1a5OCKN5eifQmQu5vm34NcpPOlbeARAYwQLzEWciPfmRDf
pyje/Mgkzq84jLYMaYs/J0BhS2fGZmR+M/YymwgCynkr5GSR94pFeHBGEVB1
xTFLBVlpRPJoylsCdrqqpGojW18/nfw7gQA/fb2tlsh3pfuvhiQTENH1LOga
8nOKs6hsOgG0eKqHK/Lnu+HhrnkEHPGTb3qI3Hxir/7mQgLmTTYohCCPsX3i
LPxMwHfGJpEI5IWaU5UmZQScqFD3eoss+LTbe6GCAFHhV6YJyPvOOByPqSbA
3lKoIBVZeeO/edWfaL8WioKzkQ07Q9IH61G+9YJGC5Bto3fZPWgmIKfY/9Nn
ZG/L3N172tF6E5M5ypHD9mj2VXUS8M+N2VaJ/HHiV4RtLwGDT13FapBL0+zO
cg0SIH5GZPwHcusNFk/qCAE1e2YO1CFPHH1ac3qcAIrz79/1yH8ZOx7MTBFw
MEL4UCOyUGmm8vMZAiSWb06ueb+vOl12noBeAdbuJmRVzdbsVhoBXtKZXWvj
57isHdyYKL8VYbxrtq8nJLb8JeCDTMKXtfnvhT4aKlwmoG9wDK9FfmG0Ldp0
HR0uK12MXIsvWTjtwiIHHZLimeXVyGV9KoJvuengGFhrs7a+9tjG2hP8dMjR
aXhchjxlffnh0Ab0/YXV/Wv5WdpPUfPbTIcuITuttfxtmvFf2LONDqyppaEs
ZKmczQXVO+iwSfMnMwX5xO2kG3a76ODwpCY4Hvnav1pyqiQdRPzMZV4hpwd+
VuU/SIdf197+CEaeFUiNuClNB28L7rm183BLPEhbUZ4OI6W2U27I+WkecdGK
dDjSZVzigMw4Zr+wpEyHZFPX7VfX9u/UqfRqjA7//T4SqL+2vmYFkpQWHbrT
O0Ix5BXTfZee6dChXy5Z6jjyQ0eS4HlDOkhM/yLtRA4J++Y69B8dLL7Z2E+h
+9EsklevcQXNb/yAvHZ/hBI+SCRZ06HVrWG2Djny04NOJwc6PClmZqQjx/aq
KS960EENS+ywRx6xlnl5yZsOqtxnqoyR986KzVTcp8Oy7CF1TeSUlX/vHgfS
oY7Lb0QUOVeilG3LSzr8nUlsWXsfaJlp5p6RdIgopMl+QlZQjM7vi0LxVniK
xSKX6N61jY+jQy/X/oRbyFU3FGtls+iwJ2mnmRAyB0tyz8tcOkSmHTjIQu+V
jt9Wb0YBHWYGnJ8MIje+pB8uK6VDk34CNRW5szg/7HQt2v/iBhcVZBGNhOnM
BrS/sel5O5Et6l9oCLXQYSHvewAb8tDALaKrkw6jg3ktNei9nF4nZ2o7Rgez
Wectush/9TN2PVihw5no6tPK6D2O8ZLxP8zOgH9X39hvQlZJyRnr5mSA3uHi
5d/offdi/5R6RIABGj8HYmKQFz6XHSOLMmD+UHM4UYwDS7JZ+5QyA6olvjiF
oHry+sK5NOoJBizlBstYIiv6t/PFYgwwtc11kEH2GOhqZeowoO38wrlGVJ+Y
L4ctUk0YwI+H95OQ6asUFz53BpjI/DdqjupdhMzttmJPBsQdzdLdi6zwH0Pe
1ocBkR3/HfqN6uPtosWFsgAGfBBvu3QXmebM/tDlBQP0+Q77hqJ6S+nd/KYt
mwHZYtsK4nNw+FOgWPEGZ4Dzm1LcBtXv0mThSs4/DLgt/PqGOPLjaGblbQqy
PPv9AVTvxR8UVZ1lMSBMLlT9ArKRnuKP9ZxMOBMTYKCaht7vkeNNnuJMoHqd
jmAk4+AncLzf1JQJDvGVXZsSUD1n2zrw3YIJeZ3xTZWoH9lO0AfkLzOh21Pi
nAtyfs+noQ12TMjYzLvwE/UzE4kK5J9uTKgXvf3rThwOeioKuFIoE0b4D5Z8
eYfD5mvyrG3fmehc9p6kvEb9gINMqXstEzj/3Xz9ArnVSep+WwMTQFbd6xhy
6C1RUnA7E1rLA+bdUL/F603asDLMBKsDX2LnXqF+/fmv/eN/mXDa+gp3WzjK
X/5tk9wjLKjQVeLXfIZD20pBoe47FsRuV2N0+KD5krCAuTgWBJg9/3MWWc+g
yTAikQWyX+9a16P+syp6cmo4HY0L7asq90L1VGH7Ds8SFjy6QTaLRf1rlKOv
b1IXC376Z45r30b1sktXh33jArDdIfkcR/3xfNZgz5dHC+Al1NT6xAT1f9tr
T0o8XQDX/K+CcxfR/I/ys5+FLIBehmufEXKEZVCg+asFUAreJSpqjM6vwNEj
rA8L4OibqpGM+vdA58CgY2ULcOXa3n0pBuj+HD6smEZbACmjuZMXNFG/knr3
1esri6A+bLLjojQO1JKy/AL9vxCa/+1SMHMaVHIDzfzl/8HUk0W9dyXTUEwt
jyziWwIto908T72m4ZXeByVZ5hLQx22WDktPQ+IccUugbRnC3/Q1RwxMgb5n
w5H3KSsQWPreMTNoCi5sM7h4M3wVZus1igYkpkBnXdyTDgU2bPAc/2p4xSRE
BMxGvUxnwxJO9N3fqD8JPmk090CRdZiSwR4bnu4JyK5SiTAMXIfN3TTjeHZ5
Al5c655QXlyHsTZ/XrrUMQ6C+dIkc3t2zJSzqdvTYBxUn3QZRQ+wYyKJeiGV
eWPw6VzVRN45Eja2qIq5bRoDZ/KJbTZGJKxH2mr3JqEx2OderLvFmITR6/xj
8gTGIPJNZoaHKQkb2t9rO889Bh5Dr11VL5Mw5w2DevarZPifs9NyjRMJu4PL
22rMkqE8aMvWnsckzLj3tEDWdzJ4bA/TfvqEhPnsKr2PVZNBNoPnrsozEnbS
53zwr0oyxDav9L17TsISS8R8F76QwW8r/sEqgoQtP1KuVssng2ZiufRMPAkr
LjjVURhLhh9f7bVWykgYuYVqdsmTDFkJ6X9/fSVhdmMMiWx3MkQ8nstNqyRh
gmqn7q26ksHa0GPnxRoS1vB0qeODMxlWBh8xMxpIWLXZ2QNDVmRQXP6Yat5H
woK0PlufNCDDztHpy3IDJMw9m8YdepoMHN+lt3IOkTC2O2ZqPdpkaA/55J87
iv4vafickwYZXMRqLNbjJCyQcN0XokiGFNUx/kIWCWs08nz2WZwMobulqp8t
kjAuPvUdSztRPkhOXlf/kbCCaFFlECWDVgNtgm+VhOkXm+6r2UqGwzmK70bZ
ODBKQgeFczMZNr3yNipm58Du70oy0BEiw4gFe4U1FwdG5vDNr+Ulw0917Tv/
4+bAxGSTyri5yZC999lhQV4OTNrW0kSXkwwC8La0hY8Du3K7riKJnQz/Bx2y
3WU=
          "]], 
         Line[{{2.5074892440187555`, 0.5625000000000582}, {
          2.5102852667180393`, 0.5625000000000625}, {2.51745250264063, 
          0.5625000000000745}, {2.5246197385632207`, 0.5625000000000888}, {
          2.551384953564617, 0.5625000000001209}, {2.5781501685660135`, 
          0.5625000000005704}, {2.604389205898851, 0.5625000000010818}, {
          2.6306282432316888`, 0.5625000000017286}, {2.659096204936784, 
          0.5625000000017676}, {2.687564166641879, 0.5625000000031383}, {
          2.7141283996580072`, 0.5625000000052693}, {2.7406926326741354`, 
          0.5625000000087172}, {2.7703462887860475`, 0.5625000000150292}, {
          2.799999944897959, 0.5625000000253824}}]}, 
        "Charting`Private`Tag#1"], {}}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.1, 2.8}, {0.5625000000000582, 0.8045411705319864}}, 
       "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {0.10000000000000023`, 0.5625000000000594}, 
       "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000023`, 0.5625000000000594},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{{
     Directive[
      GrayLevel[0.5]], 
     Dashing[{0, Small, Small, Small}], 
     TagBox[
      ConicHullRegionBox[{{2.5066282746310002`, 0.1}, {2.5066282746310002`, 
       0.2}}], "InfiniteLine"]}, 
    ArrowBox[{{0.4, 0.61}, {1.1, 0.77}}], 
    ArrowBox[{{1.3, 0.77}, {2, 0.61}}], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Declining price \\n convexity dominates\"", FontFamily -> 
            "Times", 10, 
            GrayLevel[0], TextAlignment -> Center, StripOnInput -> False], 
           TextForm]], "InlineText"], 
        Text[
         Style[
         "Declining price \n convexity dominates", FontFamily -> "Times", 10, 
          
          GrayLevel[0], TextAlignment -> Center]]], TraditionalForm]], {1.9, 
     0.58}], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Increasing variablility \\n of beliefs dominates\"", FontFamily -> 
            "Times", 10, 
            GrayLevel[0], TextAlignment -> Center, StripOnInput -> False], 
           TextForm]], "InlineText"], 
        Text[
         Style[
         "Increasing variablility \n of beliefs dominates", FontFamily -> 
          "Times", 10, 
          GrayLevel[0], TextAlignment -> Center]]], TraditionalForm]], {0.65, 
     0.58}]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox["\"Aggregate Market Price\"", HoldForm], TraditionalForm], 
     None}, {
     FormBox[
      TagBox[
      "\"Informativeness \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), OverscriptBox[\
\\(\[Beta]\\), \\(^\\)]]\\)\"", HoldForm], TraditionalForm], None}},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->270,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{0.1, 2.8}, {0.5625000000000582, 0.8045411705319864}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.972601218743741*^9, 3.972652836429998*^9, 
  3.972653166222435*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"8d868b93-9d6f-4c5c-852a-3866333c6f07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "0.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "0.5"}], ",", 
     RowBox[{"\[Sigma]0", "=", "3.01"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "4"}], ",", 
     RowBox[{"zB", "=", "0"}], ",", 
     RowBox[{"\[Kappa]", "=", "1"}], ",", 
     RowBox[{"\[Mu]C", "=", 
      RowBox[{"-", "0.5"}]}], ",", 
     RowBox[{"\[Mu]M", "=", "2"}], ",", 
     RowBox[{"\[Rho]", "=", "1"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"priceplcond", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"CondP", "[", 
         RowBox[{
         "xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]0", ",", ".5", ",", 
          "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
          "\[Kappa]", ",", "\[Mu]C", ",", "\[Mu]M", ",", "\[Rho]"}], "]"}], ",", 
        RowBox[{"CondP", "[", 
         RowBox[{
         "xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]0", ",", "1.5", ",", 
          "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
          "\[Kappa]", ",", "\[Mu]C", ",", "\[Mu]M", ",", "\[Rho]"}], "]"}], ",", 
        RowBox[{"CondP", "[", 
         RowBox[{
         "xp", ",", "\[Mu]\[Beta]", ",", "\[Sigma]0", ",", "3", ",", 
          "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", "zB", ",", 
          "\[Kappa]", ",", "\[Mu]C", ",", "\[Mu]M", ",", "\[Rho]"}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"xp", ",", 
        RowBox[{"-", "3"}], ",", "4"}], "}"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{"Solid", ",", "Dashed", ",", "DotDashed"}], "}"}]}], ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<True Beta \!\(\*SubscriptBox[\(\[Beta]\), \(j\)]\)\>\"", 
         ",", "\"\<Expected Stock Price\>\""}], "}"}]}], ",", 
      RowBox[{"ImageSize", "->", "270"}], ",", 
      RowBox[{"PlotLegends", "->", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Low Disc. Precision\>\"", ",", 
               RowBox[{"FontSize", "->", "10"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Med Disc. Precision\>\"", ",", 
               RowBox[{"FontSize", "->", "10"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<High Disc. Precision\>\"", ",", 
               RowBox[{"FontSize", "->", "10"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<Column\>\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "->", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"22", ",", "3"}], "}"}], "}"}]}], ",", 
           RowBox[{"LegendFunction", "->", "Panel"}], ",", 
           RowBox[{"LegendMargins", "->", "1"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{".275", ",", ".2"}], "}"}]}], "]"}]}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.901489651048145*^9, 3.901489679042295*^9}, 
   3.90148971375304*^9, 3.901489909869956*^9, {3.901490549416566*^9, 
   3.901490697789329*^9}, {3.901491151830076*^9, 3.901491181722337*^9}, {
   3.901491242443641*^9, 3.901491246183111*^9}, {3.901492019353491*^9, 
   3.901492077828732*^9}, {3.9014922370560017`*^9, 3.901492293789276*^9}, {
   3.901492476748996*^9, 3.901492481312029*^9}, {3.901492620973064*^9, 
   3.901492652176744*^9}, {3.901494878137974*^9, 3.901494886916025*^9}, {
   3.901494925516914*^9, 3.90149492775935*^9}, 3.901494985684913*^9, 
   3.9014951055070877`*^9},
 CellLabel->"In[37]:=",ExpressionUUID->"ea37cfd3-b88f-47a4-8e41-2dd1695de76c"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{
    InterpretationBox[{
      TagBox[{{{}, {}, 
         TagBox[
          {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
           CapForm["Butt"], LineBox[CompressedData["
1:eJwl1Hs0lHkYB3CXxry/Gea11aokRlMoyZnp4rZ6H8KqZWvcY7eOsYTatMml
kdFsIXPcYk8X5DKhWKfWSNtQ3hcVSRLlENmaY10aHGTJWtl3z/7xnO/5nO8/
378eU1GUV6iWhoaGJ33/pXtc9/jyMpMa9DSqGtnBAiexiX/eIpNq8A+sf0Tb
PvFY4855JqUvLWgrob3tvPbliEkmZSSwGguirZ+1g+geYFJ39c6ZdQpY0Fue
e6lcyaT6K9Ul9/ksCO/x3u0ZzaR2Jr7JT7NmQdquV0l5wzrUJ6lBgaUlCxwC
26rSahlUXHcNVWPKgvWt7/m/XV1BfaxzfzawlgUwyN78o1Sbkhb9kCDQZ0FP
oKVC4qVFOVs7nmzXYUE+9/iVFhtNylZ21IH5GcFLD7lBKEOD+mOzLCBlFsEV
5x6moHqJDCh24grUCD4kVuZg5xbJ0xKX2xIVApOUCOFFkwVypra2EO9DoOAe
o2JH5sjg8197OnUieMHOYefUzZKnfll7uagFwfPmGzK/wzOkVleo0LkBwRbO
J2Xa1inykaFdfXIt3e8/Yd+eqSbjCupK9aoQBBnaKAcHh8mO1GSrJjmCUk7y
1Y4kFfksqN9nTR4CkZ2QNL3QTxY/3KdbnY1gtlDOCa7sIm3YxoHqVARrTu4J
kpk1kS+MPVwjJQhOWNXXdLbGEEnBOU+/jEHwOSt0qIRoIsqs+K+CjyNojlK/
7CvrIljK8vQZEQK849qUuayfCA9xa+YFIjCMOXTgPVdFcMJLfpYKEUREZO/5
rn+YGOobWea5I1iydX6+4KImJqbvqcMIBEdtcLFcZ4p4srpCPrkLwWPNAH7+
kRmiolo0It9G2+6w7ebsWeLNuFw2z0MwVHqGrTM1R5R6xaFLhgjKEr22x5sv
EIzWisG2LxAMMHRiHnovEuvzvPh8hEDQ2JF66M4SIQq/GjWwjMHWDz4fUlTL
xF7r8lnzeQy4vPj05I2asFctOXV/AoN/Uku/ySa0wLRyYvvYEAa5Lg0FK/y1
QfrgtshtAANlnsp7U8oKMNjqVzTahUH1zT8VuiUMMPJVsyzbMLD99mNccbcO
FE/cSFdQGIg9Jjuua2BgMfpAFvY7Bhmarc9D1iHQf113s+42BtYHqwSv97Gg
fc5b7V2Ggdw3isDD2KBcLHPNKMCgU2EyqDirCz4uGrofczHIrHij0vxVD8S7
GahQhsEG/9NZ6x5zYOErM70xKQaF3WMWjDYOCO6+29ZE2/jgkaapDg4M+BR7
5NPm7tv/V0svBzJXWqd70t7owA2KHeeAf5KMrThH7zRpN+tehUOhsR07IQkD
wQivIV2Ew4XoGI5eIgY1Idf844/isH7d6+3DZzHY+Y4zHXIchy2jdgdI2rv6
FngOsTjItVZl/0Tb9tmLtLE0HN5baK/sScDA8U6Cr1s1Do32/QZFYgwaLKcn
+fdwOBOXYRNPe8+tsIsb6nG4+dYlQEgbSoT1s49w8DNrvqZN2znX3PRGLw5L
t5aMws9g0Ixfr8t8i4MTv8/RibZL+kofsQqHeZXysCFt1+SlFOE4DrVNsuL2
eAyeaEZzHadxoKbEjWW03SSjSos5HGzcT6oktFv+/t579SIOvKeR2gG0//9f
OCRGR27i0/4XgUMcXQ==
            "]]},
          Annotation[#, "Charting`Private`Tag#1"]& ], 
         TagBox[
          {RGBColor[0.365248, 0.427802, 0.758297], AbsoluteThickness[1.6], 
           Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], 
           LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAASHfT7P//B8C1b4dlTAwFQEF6H1ea
+wfAKgLj5Q0LBUA6fWvBNPcHwDtX/WbPCQVALIMDlmnuB8BkSm5rUgcFQBCP
Mz/T3AfAnF1BfVgCBUDYppORprkHwNF8rMRk+ARAaNZTNk1zB8CjxJjifeQE
QIk11H+a5gbA9zXaWrK8BEA7WsqsibUFwKsmabJzZgRAG8jhMbCYBMDMPI7Q
+BUEQEDeCyVtgQPADT7o8x3HA0DWWiuyflICwBa+x2ahcQNAmyBsl8c3AcDi
5cXO5SEDQNFMohZlBQDAokbQ7YrLAkCXQtYHMrH9v1NmnADRdgJA6n2qkgiA
+78GNEsk1ScCQB+GaVGIH/m/Hf5h/TzSAUCyIGvAduf2v1we8W1hggFAzwuS
C5K69L8uE3bfIzQBQM3Do4pWXvK/UkSz8UzfAEApDvi5iSrwvwMqy8gvkABA
zUpuOsyO67/cvYOmezoAQFsaN7ne3ua/Sau64szM/z+kDoWYzn/iv/Kp/jcQ
MP8/YjlRvyGE27/DewaSK4b+P/Seog5hqtK/JurJt7Hn/T8XcD5biibCv+YC
/7IUPP0/bi27s9DIdT/CNn5Ls5P8P/6PZeShP8I/WrxX3Lb2+z/Db+vR2aXS
P33IVT+dTPs/D86Z8CeK2z9GyPih5a36Pxp1WU/hIOI/PfKHsGMS+j9paZA+
XNvmPySQxmbKafk//ThCzflE6z98xJtujcz4P2c3D3qiBvA/s2v26D0i+D/F
AVgxm1/yP8u0guEle/c/xTleOCWQ9D9IwMRZZN/2P+SkeQsG8PY/hyDOOJY2
9j+lfVIueCf5PyzAdp8bmfU/3AUGdb1T+z+6oS6U0v70PzLBzodZr/0/r7o3
vIJX9D8q6lTqhuL/P9BFksCAu/M/ICN4jIUiAUBSorC7fBLzP/yHpEuQPwJA
ja0kl8N08j+TRL6cBFcDQFtbo7452vE/uZriUySGBECXmDSsszLxP7Gn5bIM
oQVAq6g2yHKW8D84TvN3oNMGQDuQ2t902u8/ekzuzp0ACECxRI1cZo7uP40B
yM1jGQlAd5shjdZY7T8vUKwy1UkKQBqlp6xjCew/olVvPw9mC0C4fpqMadDq
P9CyH96yfAxA76XyssWd6T+OqdriAasNQMdErU5KUeg/HVd0jxnFDkD6X8FS
PBvnP57T6SgFyg5A/A+NStQV5z8eUF/C8M4OQNFJEUZsEOc/IElK9cfYDkD+
UUNInAXnPyI7IFt27A5Aa3RNefzv5j8oH8wm0xMPQLQB+I29xOY/Mucjvoxi
D0BqLpaBQm7mP7NjmVd4Zw9AEqpu8Npo5j804A7xY2wPQCZm/2JzY+Y/Ndn5
Izt2D0DflUlTpFjmPzjLz4npiQ9APJOAYAZD5j89r3tVRrEPQP77di3LF+Y/
vivx7jG2D0DhZdLXYxLmPz6oZogduw9A0+rlhfwM5j9AoVG79MQPQHQ8Ne0t
AuY/QpMnIaPYD0AlvXTokOzlP8MPnbqO3Q9AxL2QsCnn5T9EjBJUeuIPQJvG
ZHzC4eU/RYX9hlHsD0DA5zQf9NblP8YBcyA98Q9AVfsw9ozR5T9Gfui5KPYP
QL8N5dAlzOU/x/pdUxT7D0CXHFGvvsblP0h30+z//w9AliV1kVfB5T++CF2u

            "]]},
          Annotation[#, "Charting`Private`Tag#2"]& ], 
         TagBox[
          {RGBColor[0.945109, 0.593901, 0.], AbsoluteThickness[1.6], Opacity[
           1.], Dashing[{0, Small, Small, Small}], CapForm["Butt"], 
           LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAASHfT7P//B8CrdanuQGURQEF6H1ea
+wfAa+yi/ctiEUA6fWvBNPcHwAVknAxXYBFALIMDlmnuB8BPU48qbVsRQBCP
Mz/T3AfAPTJ1ZplREUDYppORprkHwHbxQN7xPRFAaNZTNk1zB8DldNjNohYR
QIk11H+a5gbAC40HrQTIEEA7WsqsibUFwOrVEJ6OHRBAG8jhMbCYBMAINSfC
yPwOQEDeCyVtgQPAAbZA17LEDUDWWiuyflICwHtAsFEpcgxAmyBsl8c3AcCG
qBJwNzYLQNFMohZlBQDAdxTL89HfCUCXQtYHMrH9v7FolwarjwhA6n2qkgiA
+7+Dn1a9G1YHQB+GaVGIH/m/H9Rr2RgCBkCyIGvAduf2v0bpc5mtxARAzwuS
C5K69L+A6Y/ogI0DQM3Do4pWXvK/I+oBneA7AkApDvi5iSrwv2/JZvXXAAFA
zUpuOsyO67+UVUNmt1b/P1saN7ne3ua/oe3g/zu4/D+kDoWYzn/iv5VBZOHv
Rvo/YjlRvyGE27/YlpONvKD3P/Seog5hqtK/OI6ogbgn9T8XcD5biibCvzCy
aUDNefI/bi27s9DIdT9LWKU6vrDvP/6PZeShP8I/47dChEDI6j/Db+vR2aXS
P3ggOGP0deU/D86Z8CeK2z9z2/jRBn7gPxp1WU/hIOI/Qa0S+iY+1z9paZA+
XNvmPxNkx/VGWck//ThCzflE6z90U13a6H6mP2c3D3qiBvA/aTxxZhiCv7/F
AVgxm1/yP5z25NX0XtK/xTleOCWQ9D+LB5Nypijcv+SkeQsG8PY/nChMcvpi
47+lfVIueCf5P7eBgRtDV+i/3AUGdb1T+z+0KmeIkTLtvzLBzodZr/0/Dm36
L9c78b8q6lTqhuL/P2yE21M2sfO/ICN4jIUiAUCPmBCtfFv2v/yHpEuQPwJA
wvBfvpPY+L+TRL6cBFcDQEV3h7EtSfu/uZriUySGBEBOBAParu79v7Gn5bIM
oQVAck1MXYAzAMA4TvN3oNMGQMBFQegcigHAekzuzp0ACEAH1iLketoCwI0B
yM1jGQlAPEESPEEUBMAvUKwy1UkKQHGFrS57aAXAolVvPw9mC0C76HV9HaYG
wNCyH96yfAxA4tTVOoHdB8COqdriAasNQLJlaZZYLwnAHVd0jxnFDkCnzlBN
mGoKwJ7T6SgFyg5AR4OS8xdwCsAeUF/C8M4OQFcy1JmXdQrAIElK9cfYDkDd
lQ3mloAKwCI7IFt27A5AXtoRf5WWCsAoH8wm0xMPQHV1GbGSwgrAMucjvoxi
D0AkaSUVjRoLwLNjmVd4Zw9ApgdmuwwgC8A04A7xY2wPQKGipmGMJQvANdn5
Izt2D0A6zieuizALwDjLz4npiQ9AYP0pR4pGC8A9r3tVRrEPQBPGLXmHcgvA
vivx7jG2D0AEMm4fB3gLwD6oZogduw9ALpuuxYZ9C8BAoVG79MQPQFVlLxKG
iAvAQpMnIaPYD0AU2jCrhJ4LwMMPnbqO3Q9A7DBxUQSkC8BEjBJUeuIPQE2F
sfeDqQvARYX9hlHsD0DUJjJEg7QLwMYBcyA98Q9ACXRy6gK6C8BGfui5KPYP
QOy+spCCvwvAx/pdUxT7D0CLB/M2AsULwEh30+z//w9A6E0z3YHKC8DaU0U9

            "]]},
          Annotation[#, "Charting`Private`Tag#3"]& ]}, {}},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
      StyleBox[
       DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
             Annotation[{
               Directive[
                Opacity[1.], 
                RGBColor[0.9, 0.36, 0.054], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6]], 
               Line[CompressedData["
1:eJwl1Hs0lHkYB3CXxry/Gea11aokRlMoyZnp4rZ6H8KqZWvcY7eOsYTatMml
kdFsIXPcYk8X5DKhWKfWSNtQ3hcVSRLlENmaY10aHGTJWtl3z/7xnO/5nO8/
378eU1GUV6iWhoaGJ33/pXtc9/jyMpMa9DSqGtnBAiexiX/eIpNq8A+sf0Tb
PvFY4855JqUvLWgrob3tvPbliEkmZSSwGguirZ+1g+geYFJ39c6ZdQpY0Fue
e6lcyaT6K9Ul9/ksCO/x3u0ZzaR2Jr7JT7NmQdquV0l5wzrUJ6lBgaUlCxwC
26rSahlUXHcNVWPKgvWt7/m/XV1BfaxzfzawlgUwyN78o1Sbkhb9kCDQZ0FP
oKVC4qVFOVs7nmzXYUE+9/iVFhtNylZ21IH5GcFLD7lBKEOD+mOzLCBlFsEV
5x6moHqJDCh24grUCD4kVuZg5xbJ0xKX2xIVApOUCOFFkwVypra2EO9DoOAe
o2JH5sjg8197OnUieMHOYefUzZKnfll7uagFwfPmGzK/wzOkVleo0LkBwRbO
J2Xa1inykaFdfXIt3e8/Yd+eqSbjCupK9aoQBBnaKAcHh8mO1GSrJjmCUk7y
1Y4kFfksqN9nTR4CkZ2QNL3QTxY/3KdbnY1gtlDOCa7sIm3YxoHqVARrTu4J
kpk1kS+MPVwjJQhOWNXXdLbGEEnBOU+/jEHwOSt0qIRoIsqs+K+CjyNojlK/
7CvrIljK8vQZEQK849qUuayfCA9xa+YFIjCMOXTgPVdFcMJLfpYKEUREZO/5
rn+YGOobWea5I1iydX6+4KImJqbvqcMIBEdtcLFcZ4p4srpCPrkLwWPNAH7+
kRmiolo0It9G2+6w7ebsWeLNuFw2z0MwVHqGrTM1R5R6xaFLhgjKEr22x5sv
EIzWisG2LxAMMHRiHnovEuvzvPh8hEDQ2JF66M4SIQq/GjWwjMHWDz4fUlTL
xF7r8lnzeQy4vPj05I2asFctOXV/AoN/Uku/ySa0wLRyYvvYEAa5Lg0FK/y1
QfrgtshtAANlnsp7U8oKMNjqVzTahUH1zT8VuiUMMPJVsyzbMLD99mNccbcO
FE/cSFdQGIg9Jjuua2BgMfpAFvY7Bhmarc9D1iHQf113s+42BtYHqwSv97Gg
fc5b7V2Ggdw3isDD2KBcLHPNKMCgU2EyqDirCz4uGrofczHIrHij0vxVD8S7
GahQhsEG/9NZ6x5zYOErM70xKQaF3WMWjDYOCO6+29ZE2/jgkaapDg4M+BR7
5NPm7tv/V0svBzJXWqd70t7owA2KHeeAf5KMrThH7zRpN+tehUOhsR07IQkD
wQivIV2Ew4XoGI5eIgY1Idf844/isH7d6+3DZzHY+Y4zHXIchy2jdgdI2rv6
FngOsTjItVZl/0Tb9tmLtLE0HN5baK/sScDA8U6Cr1s1Do32/QZFYgwaLKcn
+fdwOBOXYRNPe8+tsIsb6nG4+dYlQEgbSoT1s49w8DNrvqZN2znX3PRGLw5L
t5aMws9g0Ixfr8t8i4MTv8/RibZL+kofsQqHeZXysCFt1+SlFOE4DrVNsuL2
eAyeaEZzHadxoKbEjWW03SSjSos5HGzcT6oktFv+/t579SIOvKeR2gG0//9f
OCRGR27i0/4XgUMcXQ==
                "]]}, "Charting`Private`Tag#1"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}]], 
               Line[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAASHfT7P//B8C1b4dlTAwFQEF6H1ea
+wfAKgLj5Q0LBUA6fWvBNPcHwDtX/WbPCQVALIMDlmnuB8BkSm5rUgcFQBCP
Mz/T3AfAnF1BfVgCBUDYppORprkHwNF8rMRk+ARAaNZTNk1zB8CjxJjifeQE
QIk11H+a5gbA9zXaWrK8BEA7WsqsibUFwKsmabJzZgRAG8jhMbCYBMDMPI7Q
+BUEQEDeCyVtgQPADT7o8x3HA0DWWiuyflICwBa+x2ahcQNAmyBsl8c3AcDi
5cXO5SEDQNFMohZlBQDAokbQ7YrLAkCXQtYHMrH9v1NmnADRdgJA6n2qkgiA
+78GNEsk1ScCQB+GaVGIH/m/Hf5h/TzSAUCyIGvAduf2v1we8W1hggFAzwuS
C5K69L8uE3bfIzQBQM3Do4pWXvK/UkSz8UzfAEApDvi5iSrwvwMqy8gvkABA
zUpuOsyO67/cvYOmezoAQFsaN7ne3ua/Sau64szM/z+kDoWYzn/iv/Kp/jcQ
MP8/YjlRvyGE27/DewaSK4b+P/Seog5hqtK/JurJt7Hn/T8XcD5biibCv+YC
/7IUPP0/bi27s9DIdT/CNn5Ls5P8P/6PZeShP8I/WrxX3Lb2+z/Db+vR2aXS
P33IVT+dTPs/D86Z8CeK2z9GyPih5a36Pxp1WU/hIOI/PfKHsGMS+j9paZA+
XNvmPySQxmbKafk//ThCzflE6z98xJtujcz4P2c3D3qiBvA/s2v26D0i+D/F
AVgxm1/yP8u0guEle/c/xTleOCWQ9D9IwMRZZN/2P+SkeQsG8PY/hyDOOJY2
9j+lfVIueCf5PyzAdp8bmfU/3AUGdb1T+z+6oS6U0v70PzLBzodZr/0/r7o3
vIJX9D8q6lTqhuL/P9BFksCAu/M/ICN4jIUiAUBSorC7fBLzP/yHpEuQPwJA
ja0kl8N08j+TRL6cBFcDQFtbo7452vE/uZriUySGBECXmDSsszLxP7Gn5bIM
oQVAq6g2yHKW8D84TvN3oNMGQDuQ2t902u8/ekzuzp0ACECxRI1cZo7uP40B
yM1jGQlAd5shjdZY7T8vUKwy1UkKQBqlp6xjCew/olVvPw9mC0C4fpqMadDq
P9CyH96yfAxA76XyssWd6T+OqdriAasNQMdErU5KUeg/HVd0jxnFDkD6X8FS
PBvnP57T6SgFyg5A/A+NStQV5z8eUF/C8M4OQNFJEUZsEOc/IElK9cfYDkD+
UUNInAXnPyI7IFt27A5Aa3RNefzv5j8oH8wm0xMPQLQB+I29xOY/Mucjvoxi
D0BqLpaBQm7mP7NjmVd4Zw9AEqpu8Npo5j804A7xY2wPQCZm/2JzY+Y/Ndn5
Izt2D0DflUlTpFjmPzjLz4npiQ9APJOAYAZD5j89r3tVRrEPQP77di3LF+Y/
vivx7jG2D0DhZdLXYxLmPz6oZogduw9A0+rlhfwM5j9AoVG79MQPQHQ8Ne0t
AuY/QpMnIaPYD0AlvXTokOzlP8MPnbqO3Q9AxL2QsCnn5T9EjBJUeuIPQJvG
ZHzC4eU/RYX9hlHsD0DA5zQf9NblP8YBcyA98Q9AVfsw9ozR5T9Gfui5KPYP
QL8N5dAlzOU/x/pdUxT7D0CXHFGvvsblP0h30+z//w9AliV1kVfB5T++CF2u

                "]]}, "Charting`Private`Tag#2"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                RGBColor[0.945109, 0.593901, 0.], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{0, Small, Small, Small}]], 
               Line[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAASHfT7P//B8CrdanuQGURQEF6H1ea
+wfAa+yi/ctiEUA6fWvBNPcHwAVknAxXYBFALIMDlmnuB8BPU48qbVsRQBCP
Mz/T3AfAPTJ1ZplREUDYppORprkHwHbxQN7xPRFAaNZTNk1zB8DldNjNohYR
QIk11H+a5gbAC40HrQTIEEA7WsqsibUFwOrVEJ6OHRBAG8jhMbCYBMAINSfC
yPwOQEDeCyVtgQPAAbZA17LEDUDWWiuyflICwHtAsFEpcgxAmyBsl8c3AcCG
qBJwNzYLQNFMohZlBQDAdxTL89HfCUCXQtYHMrH9v7FolwarjwhA6n2qkgiA
+7+Dn1a9G1YHQB+GaVGIH/m/H9Rr2RgCBkCyIGvAduf2v0bpc5mtxARAzwuS
C5K69L+A6Y/ogI0DQM3Do4pWXvK/I+oBneA7AkApDvi5iSrwv2/JZvXXAAFA
zUpuOsyO67+UVUNmt1b/P1saN7ne3ua/oe3g/zu4/D+kDoWYzn/iv5VBZOHv
Rvo/YjlRvyGE27/YlpONvKD3P/Seog5hqtK/OI6ogbgn9T8XcD5biibCvzCy
aUDNefI/bi27s9DIdT9LWKU6vrDvP/6PZeShP8I/47dChEDI6j/Db+vR2aXS
P3ggOGP0deU/D86Z8CeK2z9z2/jRBn7gPxp1WU/hIOI/Qa0S+iY+1z9paZA+
XNvmPxNkx/VGWck//ThCzflE6z90U13a6H6mP2c3D3qiBvA/aTxxZhiCv7/F
AVgxm1/yP5z25NX0XtK/xTleOCWQ9D+LB5Nypijcv+SkeQsG8PY/nChMcvpi
47+lfVIueCf5P7eBgRtDV+i/3AUGdb1T+z+0KmeIkTLtvzLBzodZr/0/Dm36
L9c78b8q6lTqhuL/P2yE21M2sfO/ICN4jIUiAUCPmBCtfFv2v/yHpEuQPwJA
wvBfvpPY+L+TRL6cBFcDQEV3h7EtSfu/uZriUySGBEBOBAParu79v7Gn5bIM
oQVAck1MXYAzAMA4TvN3oNMGQMBFQegcigHAekzuzp0ACEAH1iLketoCwI0B
yM1jGQlAPEESPEEUBMAvUKwy1UkKQHGFrS57aAXAolVvPw9mC0C76HV9HaYG
wNCyH96yfAxA4tTVOoHdB8COqdriAasNQLJlaZZYLwnAHVd0jxnFDkCnzlBN
mGoKwJ7T6SgFyg5AR4OS8xdwCsAeUF/C8M4OQFcy1JmXdQrAIElK9cfYDkDd
lQ3mloAKwCI7IFt27A5AXtoRf5WWCsAoH8wm0xMPQHV1GbGSwgrAMucjvoxi
D0AkaSUVjRoLwLNjmVd4Zw9ApgdmuwwgC8A04A7xY2wPQKGipmGMJQvANdn5
Izt2D0A6zieuizALwDjLz4npiQ9AYP0pR4pGC8A9r3tVRrEPQBPGLXmHcgvA
vivx7jG2D0AEMm4fB3gLwD6oZogduw9ALpuuxYZ9C8BAoVG79MQPQFVlLxKG
iAvAQpMnIaPYD0AU2jCrhJ4LwMMPnbqO3Q9A7DBxUQSkC8BEjBJUeuIPQE2F
sfeDqQvARYX9hlHsD0DUJjJEg7QLwMYBcyA98Q9ACXRy6gK6C8BGfui5KPYP
QOy+spCCvwvAx/pdUxT7D0CLB/M2AsULwEh30+z//w9A6E0z3YHKC8DaU0U9

                "]]}, "Charting`Private`Tag#3"]}}, {}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{-3, 4}, {-3.473880508545097, 
               4.348880509465213}}, "Frame" -> {{True, True}, {True, True}}, 
             "AxesOrigin" -> {0, 0}, "ImageSize" -> {270, 270/GoldenRatio}, 
             "Axes" -> {False, False}, 
             "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
             "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
               Directive[
                Opacity[1.], 
                RGBColor[0.945109, 0.593901, 0.], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{0, Small, Small, Small}]], 
               Directive[
                Opacity[1.], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}]], 
               Directive[
                Opacity[1.], 
                RGBColor[0.9, 0.36, 0.054], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{-3, 4}, {-3.473880508545097, 4.348880509465213}},
             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
            "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
            "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
            "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               RGBColor[0.945109, 0.593901, 0.], 
               CapForm["Butt"], 
               AbsoluteThickness[1.6], 
               Dashing[{0, Small, Small, Small}]], 
              Directive[
               Opacity[1.], 
               RGBColor[0.365248, 0.427802, 0.758297], 
               CapForm["Butt"], 
               AbsoluteThickness[1.6], 
               Dashing[{Small, Small}]], 
              Directive[
               Opacity[1.], 
               RGBColor[0.9, 0.36, 0.054], 
               CapForm["Butt"], 
               AbsoluteThickness[1.6]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>],
        ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
         4.503599627370496*^15, -4.503599627370496*^15}}],
       Selectable->False]},
     Annotation[{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.9, 0.36, 0.054], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6]], 
           Line[CompressedData["
1:eJwl1Hs0lHkYB3CXxry/Gea11aokRlMoyZnp4rZ6H8KqZWvcY7eOsYTatMml
kdFsIXPcYk8X5DKhWKfWSNtQ3hcVSRLlENmaY10aHGTJWtl3z/7xnO/5nO8/
378eU1GUV6iWhoaGJ33/pXtc9/jyMpMa9DSqGtnBAiexiX/eIpNq8A+sf0Tb
PvFY4855JqUvLWgrob3tvPbliEkmZSSwGguirZ+1g+geYFJ39c6ZdQpY0Fue
e6lcyaT6K9Ul9/ksCO/x3u0ZzaR2Jr7JT7NmQdquV0l5wzrUJ6lBgaUlCxwC
26rSahlUXHcNVWPKgvWt7/m/XV1BfaxzfzawlgUwyN78o1Sbkhb9kCDQZ0FP
oKVC4qVFOVs7nmzXYUE+9/iVFhtNylZ21IH5GcFLD7lBKEOD+mOzLCBlFsEV
5x6moHqJDCh24grUCD4kVuZg5xbJ0xKX2xIVApOUCOFFkwVypra2EO9DoOAe
o2JH5sjg8197OnUieMHOYefUzZKnfll7uagFwfPmGzK/wzOkVleo0LkBwRbO
J2Xa1inykaFdfXIt3e8/Yd+eqSbjCupK9aoQBBnaKAcHh8mO1GSrJjmCUk7y
1Y4kFfksqN9nTR4CkZ2QNL3QTxY/3KdbnY1gtlDOCa7sIm3YxoHqVARrTu4J
kpk1kS+MPVwjJQhOWNXXdLbGEEnBOU+/jEHwOSt0qIRoIsqs+K+CjyNojlK/
7CvrIljK8vQZEQK849qUuayfCA9xa+YFIjCMOXTgPVdFcMJLfpYKEUREZO/5
rn+YGOobWea5I1iydX6+4KImJqbvqcMIBEdtcLFcZ4p4srpCPrkLwWPNAH7+
kRmiolo0It9G2+6w7ebsWeLNuFw2z0MwVHqGrTM1R5R6xaFLhgjKEr22x5sv
EIzWisG2LxAMMHRiHnovEuvzvPh8hEDQ2JF66M4SIQq/GjWwjMHWDz4fUlTL
xF7r8lnzeQy4vPj05I2asFctOXV/AoN/Uku/ySa0wLRyYvvYEAa5Lg0FK/y1
QfrgtshtAANlnsp7U8oKMNjqVzTahUH1zT8VuiUMMPJVsyzbMLD99mNccbcO
FE/cSFdQGIg9Jjuua2BgMfpAFvY7Bhmarc9D1iHQf113s+42BtYHqwSv97Gg
fc5b7V2Ggdw3isDD2KBcLHPNKMCgU2EyqDirCz4uGrofczHIrHij0vxVD8S7
GahQhsEG/9NZ6x5zYOErM70xKQaF3WMWjDYOCO6+29ZE2/jgkaapDg4M+BR7
5NPm7tv/V0svBzJXWqd70t7owA2KHeeAf5KMrThH7zRpN+tehUOhsR07IQkD
wQivIV2Ew4XoGI5eIgY1Idf844/isH7d6+3DZzHY+Y4zHXIchy2jdgdI2rv6
FngOsTjItVZl/0Tb9tmLtLE0HN5baK/sScDA8U6Cr1s1Do32/QZFYgwaLKcn
+fdwOBOXYRNPe8+tsIsb6nG4+dYlQEgbSoT1s49w8DNrvqZN2znX3PRGLw5L
t5aMws9g0Ixfr8t8i4MTv8/RibZL+kofsQqHeZXysCFt1+SlFOE4DrVNsuL2
eAyeaEZzHadxoKbEjWW03SSjSos5HGzcT6oktFv+/t579SIOvKeR2gG0//9f
OCRGR27i0/4XgUMcXQ==
            "]]}, "Charting`Private`Tag#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}]], 
           Line[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAASHfT7P//B8C1b4dlTAwFQEF6H1ea
+wfAKgLj5Q0LBUA6fWvBNPcHwDtX/WbPCQVALIMDlmnuB8BkSm5rUgcFQBCP
Mz/T3AfAnF1BfVgCBUDYppORprkHwNF8rMRk+ARAaNZTNk1zB8CjxJjifeQE
QIk11H+a5gbA9zXaWrK8BEA7WsqsibUFwKsmabJzZgRAG8jhMbCYBMDMPI7Q
+BUEQEDeCyVtgQPADT7o8x3HA0DWWiuyflICwBa+x2ahcQNAmyBsl8c3AcDi
5cXO5SEDQNFMohZlBQDAokbQ7YrLAkCXQtYHMrH9v1NmnADRdgJA6n2qkgiA
+78GNEsk1ScCQB+GaVGIH/m/Hf5h/TzSAUCyIGvAduf2v1we8W1hggFAzwuS
C5K69L8uE3bfIzQBQM3Do4pWXvK/UkSz8UzfAEApDvi5iSrwvwMqy8gvkABA
zUpuOsyO67/cvYOmezoAQFsaN7ne3ua/Sau64szM/z+kDoWYzn/iv/Kp/jcQ
MP8/YjlRvyGE27/DewaSK4b+P/Seog5hqtK/JurJt7Hn/T8XcD5biibCv+YC
/7IUPP0/bi27s9DIdT/CNn5Ls5P8P/6PZeShP8I/WrxX3Lb2+z/Db+vR2aXS
P33IVT+dTPs/D86Z8CeK2z9GyPih5a36Pxp1WU/hIOI/PfKHsGMS+j9paZA+
XNvmPySQxmbKafk//ThCzflE6z98xJtujcz4P2c3D3qiBvA/s2v26D0i+D/F
AVgxm1/yP8u0guEle/c/xTleOCWQ9D9IwMRZZN/2P+SkeQsG8PY/hyDOOJY2
9j+lfVIueCf5PyzAdp8bmfU/3AUGdb1T+z+6oS6U0v70PzLBzodZr/0/r7o3
vIJX9D8q6lTqhuL/P9BFksCAu/M/ICN4jIUiAUBSorC7fBLzP/yHpEuQPwJA
ja0kl8N08j+TRL6cBFcDQFtbo7452vE/uZriUySGBECXmDSsszLxP7Gn5bIM
oQVAq6g2yHKW8D84TvN3oNMGQDuQ2t902u8/ekzuzp0ACECxRI1cZo7uP40B
yM1jGQlAd5shjdZY7T8vUKwy1UkKQBqlp6xjCew/olVvPw9mC0C4fpqMadDq
P9CyH96yfAxA76XyssWd6T+OqdriAasNQMdErU5KUeg/HVd0jxnFDkD6X8FS
PBvnP57T6SgFyg5A/A+NStQV5z8eUF/C8M4OQNFJEUZsEOc/IElK9cfYDkD+
UUNInAXnPyI7IFt27A5Aa3RNefzv5j8oH8wm0xMPQLQB+I29xOY/Mucjvoxi
D0BqLpaBQm7mP7NjmVd4Zw9AEqpu8Npo5j804A7xY2wPQCZm/2JzY+Y/Ndn5
Izt2D0DflUlTpFjmPzjLz4npiQ9APJOAYAZD5j89r3tVRrEPQP77di3LF+Y/
vivx7jG2D0DhZdLXYxLmPz6oZogduw9A0+rlhfwM5j9AoVG79MQPQHQ8Ne0t
AuY/QpMnIaPYD0AlvXTokOzlP8MPnbqO3Q9AxL2QsCnn5T9EjBJUeuIPQJvG
ZHzC4eU/RYX9hlHsD0DA5zQf9NblP8YBcyA98Q9AVfsw9ozR5T9Gfui5KPYP
QL8N5dAlzOU/x/pdUxT7D0CXHFGvvsblP0h30+z//w9AliV1kVfB5T++CF2u

            "]]}, "Charting`Private`Tag#2"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            RGBColor[0.945109, 0.593901, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{0, Small, Small, Small}]], 
           Line[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAASHfT7P//B8CrdanuQGURQEF6H1ea
+wfAa+yi/ctiEUA6fWvBNPcHwAVknAxXYBFALIMDlmnuB8BPU48qbVsRQBCP
Mz/T3AfAPTJ1ZplREUDYppORprkHwHbxQN7xPRFAaNZTNk1zB8DldNjNohYR
QIk11H+a5gbAC40HrQTIEEA7WsqsibUFwOrVEJ6OHRBAG8jhMbCYBMAINSfC
yPwOQEDeCyVtgQPAAbZA17LEDUDWWiuyflICwHtAsFEpcgxAmyBsl8c3AcCG
qBJwNzYLQNFMohZlBQDAdxTL89HfCUCXQtYHMrH9v7FolwarjwhA6n2qkgiA
+7+Dn1a9G1YHQB+GaVGIH/m/H9Rr2RgCBkCyIGvAduf2v0bpc5mtxARAzwuS
C5K69L+A6Y/ogI0DQM3Do4pWXvK/I+oBneA7AkApDvi5iSrwv2/JZvXXAAFA
zUpuOsyO67+UVUNmt1b/P1saN7ne3ua/oe3g/zu4/D+kDoWYzn/iv5VBZOHv
Rvo/YjlRvyGE27/YlpONvKD3P/Seog5hqtK/OI6ogbgn9T8XcD5biibCvzCy
aUDNefI/bi27s9DIdT9LWKU6vrDvP/6PZeShP8I/47dChEDI6j/Db+vR2aXS
P3ggOGP0deU/D86Z8CeK2z9z2/jRBn7gPxp1WU/hIOI/Qa0S+iY+1z9paZA+
XNvmPxNkx/VGWck//ThCzflE6z90U13a6H6mP2c3D3qiBvA/aTxxZhiCv7/F
AVgxm1/yP5z25NX0XtK/xTleOCWQ9D+LB5Nypijcv+SkeQsG8PY/nChMcvpi
47+lfVIueCf5P7eBgRtDV+i/3AUGdb1T+z+0KmeIkTLtvzLBzodZr/0/Dm36
L9c78b8q6lTqhuL/P2yE21M2sfO/ICN4jIUiAUCPmBCtfFv2v/yHpEuQPwJA
wvBfvpPY+L+TRL6cBFcDQEV3h7EtSfu/uZriUySGBEBOBAParu79v7Gn5bIM
oQVAck1MXYAzAMA4TvN3oNMGQMBFQegcigHAekzuzp0ACEAH1iLketoCwI0B
yM1jGQlAPEESPEEUBMAvUKwy1UkKQHGFrS57aAXAolVvPw9mC0C76HV9HaYG
wNCyH96yfAxA4tTVOoHdB8COqdriAasNQLJlaZZYLwnAHVd0jxnFDkCnzlBN
mGoKwJ7T6SgFyg5AR4OS8xdwCsAeUF/C8M4OQFcy1JmXdQrAIElK9cfYDkDd
lQ3mloAKwCI7IFt27A5AXtoRf5WWCsAoH8wm0xMPQHV1GbGSwgrAMucjvoxi
D0AkaSUVjRoLwLNjmVd4Zw9ApgdmuwwgC8A04A7xY2wPQKGipmGMJQvANdn5
Izt2D0A6zieuizALwDjLz4npiQ9AYP0pR4pGC8A9r3tVRrEPQBPGLXmHcgvA
vivx7jG2D0AEMm4fB3gLwD6oZogduw9ALpuuxYZ9C8BAoVG79MQPQFVlLxKG
iAvAQpMnIaPYD0AU2jCrhJ4LwMMPnbqO3Q9A7DBxUQSkC8BEjBJUeuIPQE2F
sfeDqQvARYX9hlHsD0DUJjJEg7QLwMYBcyA98Q9ACXRy6gK6C8BGfui5KPYP
QOy+spCCvwvAx/pdUxT7D0CLB/M2AsULwEh30+z//w9A6E0z3YHKC8DaU0U9

            "]]}, "Charting`Private`Tag#3"]}}, {}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{-3, 4}, {-3.473880508545097, 4.348880509465213}}, 
         "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
         "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
         "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            RGBColor[0.945109, 0.593901, 0.], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{0, Small, Small, Small}]], 
           Directive[
            Opacity[1.], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}]], 
           Directive[
            Opacity[1.], 
            RGBColor[0.9, 0.36, 0.054], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], InsetBox[
     TemplateBox[{
       StyleBox[
       "\"Low Disc. Precision\"", FontSize -> 10, StripOnInput -> False], 
       StyleBox[
       "\"Med Disc. Precision\"", FontSize -> 10, StripOnInput -> False], 
       StyleBox[
       "\"High Disc. Precision\"", FontSize -> 10, StripOnInput -> False]},
      "LineLegend",
      DisplayFunction->(FormBox[
        PanelBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 3}, {22, 3}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {22, 3}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.6233333333333334] -> 
                    Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 3}, {22, 3}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {22, 3}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.6233333333333334] -> 
                    Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 3}, {22, 3}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], FontFamily -> "CMU Serif", FontSize -> 14, 
                    Opacity[1.], 
                    RGBColor[0.945109, 0.593901, 0.], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {22, 3}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.6233333333333334] -> 
                    Baseline)], #3}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> 
           False], {FontFamily -> "Times"}, StripOnInput -> False], 
         Background -> Automatic, ContentPadding -> True, 
         FrameMargins -> {{1, 1}, {1, 1}}], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "\"CMU Serif\""}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.9, 0.36, 0.054]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "\"CMU Serif\""}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.365248, 0.427802, 0.758297]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"FontFamily", "\[Rule]", "\"CMU Serif\""}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.945109, 0.593901, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", "Panel"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Column\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "1"}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"{", 
                 RowBox[{"22", ",", "3"}], "}"}], "}"}]}]}], "]"}]& )], 
     Scaled[{0.275, 0.2}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{False, False},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
   DefaultBaseStyle->{"PlotGraphics", "Graphics"},
   DisplayFunction->Identity,
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox[
       TagBox["\"Expected Stock Price\"", HoldForm], TraditionalForm], None}, {
      FormBox[
       TagBox[
       "\"True Beta \\!\\(\\*SubscriptBox[\\(\[Beta]\\), \\(j\\)]\\)\"", 
        HoldForm], TraditionalForm], None}},
   FrameStyle->Automatic,
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{{0}, {0}},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->All,
   ImageSize->270,
   LabelStyle->{FontFamily -> "Times"},
   Method->{
    "DefaultBoundaryStyle" -> Automatic, 
     "DefaultGraphicsInteraction" -> {
      "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
       "Effects" -> {
        "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
         "Droplines" -> {
          "freeformCursorMode" -> True, 
           "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
     "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotInteractivity:>True,
   PlotRange->{{-3, 4}, {-3.473880508545097, 4.348880509465213}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.05], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{
      Annotation[{{{{}, {}, 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]], 
            Line[CompressedData["
1:eJwl1Hs0lHkYB3CXxry/Gea11aokRlMoyZnp4rZ6H8KqZWvcY7eOsYTatMml
kdFsIXPcYk8X5DKhWKfWSNtQ3hcVSRLlENmaY10aHGTJWtl3z/7xnO/5nO8/
378eU1GUV6iWhoaGJ33/pXtc9/jyMpMa9DSqGtnBAiexiX/eIpNq8A+sf0Tb
PvFY4855JqUvLWgrob3tvPbliEkmZSSwGguirZ+1g+geYFJ39c6ZdQpY0Fue
e6lcyaT6K9Ul9/ksCO/x3u0ZzaR2Jr7JT7NmQdquV0l5wzrUJ6lBgaUlCxwC
26rSahlUXHcNVWPKgvWt7/m/XV1BfaxzfzawlgUwyN78o1Sbkhb9kCDQZ0FP
oKVC4qVFOVs7nmzXYUE+9/iVFhtNylZ21IH5GcFLD7lBKEOD+mOzLCBlFsEV
5x6moHqJDCh24grUCD4kVuZg5xbJ0xKX2xIVApOUCOFFkwVypra2EO9DoOAe
o2JH5sjg8197OnUieMHOYefUzZKnfll7uagFwfPmGzK/wzOkVleo0LkBwRbO
J2Xa1inykaFdfXIt3e8/Yd+eqSbjCupK9aoQBBnaKAcHh8mO1GSrJjmCUk7y
1Y4kFfksqN9nTR4CkZ2QNL3QTxY/3KdbnY1gtlDOCa7sIm3YxoHqVARrTu4J
kpk1kS+MPVwjJQhOWNXXdLbGEEnBOU+/jEHwOSt0qIRoIsqs+K+CjyNojlK/
7CvrIljK8vQZEQK849qUuayfCA9xa+YFIjCMOXTgPVdFcMJLfpYKEUREZO/5
rn+YGOobWea5I1iydX6+4KImJqbvqcMIBEdtcLFcZ4p4srpCPrkLwWPNAH7+
kRmiolo0It9G2+6w7ebsWeLNuFw2z0MwVHqGrTM1R5R6xaFLhgjKEr22x5sv
EIzWisG2LxAMMHRiHnovEuvzvPh8hEDQ2JF66M4SIQq/GjWwjMHWDz4fUlTL
xF7r8lnzeQy4vPj05I2asFctOXV/AoN/Uku/ySa0wLRyYvvYEAa5Lg0FK/y1
QfrgtshtAANlnsp7U8oKMNjqVzTahUH1zT8VuiUMMPJVsyzbMLD99mNccbcO
FE/cSFdQGIg9Jjuua2BgMfpAFvY7Bhmarc9D1iHQf113s+42BtYHqwSv97Gg
fc5b7V2Ggdw3isDD2KBcLHPNKMCgU2EyqDirCz4uGrofczHIrHij0vxVD8S7
GahQhsEG/9NZ6x5zYOErM70xKQaF3WMWjDYOCO6+29ZE2/jgkaapDg4M+BR7
5NPm7tv/V0svBzJXWqd70t7owA2KHeeAf5KMrThH7zRpN+tehUOhsR07IQkD
wQivIV2Ew4XoGI5eIgY1Idf844/isH7d6+3DZzHY+Y4zHXIchy2jdgdI2rv6
FngOsTjItVZl/0Tb9tmLtLE0HN5baK/sScDA8U6Cr1s1Do32/QZFYgwaLKcn
+fdwOBOXYRNPe8+tsIsb6nG4+dYlQEgbSoT1s49w8DNrvqZN2znX3PRGLw5L
t5aMws9g0Ixfr8t8i4MTv8/RibZL+kofsQqHeZXysCFt1+SlFOE4DrVNsuL2
eAyeaEZzHadxoKbEjWW03SSjSos5HGzcT6oktFv+/t579SIOvKeR2gG0//9f
OCRGR27i0/4XgUMcXQ==
             "]]}, "Charting`Private`Tag#1"], 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.365248, 0.427802, 0.758297], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{Small, Small}]], 
            Line[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAASHfT7P//B8C1b4dlTAwFQEF6H1ea
+wfAKgLj5Q0LBUA6fWvBNPcHwDtX/WbPCQVALIMDlmnuB8BkSm5rUgcFQBCP
Mz/T3AfAnF1BfVgCBUDYppORprkHwNF8rMRk+ARAaNZTNk1zB8CjxJjifeQE
QIk11H+a5gbA9zXaWrK8BEA7WsqsibUFwKsmabJzZgRAG8jhMbCYBMDMPI7Q
+BUEQEDeCyVtgQPADT7o8x3HA0DWWiuyflICwBa+x2ahcQNAmyBsl8c3AcDi
5cXO5SEDQNFMohZlBQDAokbQ7YrLAkCXQtYHMrH9v1NmnADRdgJA6n2qkgiA
+78GNEsk1ScCQB+GaVGIH/m/Hf5h/TzSAUCyIGvAduf2v1we8W1hggFAzwuS
C5K69L8uE3bfIzQBQM3Do4pWXvK/UkSz8UzfAEApDvi5iSrwvwMqy8gvkABA
zUpuOsyO67/cvYOmezoAQFsaN7ne3ua/Sau64szM/z+kDoWYzn/iv/Kp/jcQ
MP8/YjlRvyGE27/DewaSK4b+P/Seog5hqtK/JurJt7Hn/T8XcD5biibCv+YC
/7IUPP0/bi27s9DIdT/CNn5Ls5P8P/6PZeShP8I/WrxX3Lb2+z/Db+vR2aXS
P33IVT+dTPs/D86Z8CeK2z9GyPih5a36Pxp1WU/hIOI/PfKHsGMS+j9paZA+
XNvmPySQxmbKafk//ThCzflE6z98xJtujcz4P2c3D3qiBvA/s2v26D0i+D/F
AVgxm1/yP8u0guEle/c/xTleOCWQ9D9IwMRZZN/2P+SkeQsG8PY/hyDOOJY2
9j+lfVIueCf5PyzAdp8bmfU/3AUGdb1T+z+6oS6U0v70PzLBzodZr/0/r7o3
vIJX9D8q6lTqhuL/P9BFksCAu/M/ICN4jIUiAUBSorC7fBLzP/yHpEuQPwJA
ja0kl8N08j+TRL6cBFcDQFtbo7452vE/uZriUySGBECXmDSsszLxP7Gn5bIM
oQVAq6g2yHKW8D84TvN3oNMGQDuQ2t902u8/ekzuzp0ACECxRI1cZo7uP40B
yM1jGQlAd5shjdZY7T8vUKwy1UkKQBqlp6xjCew/olVvPw9mC0C4fpqMadDq
P9CyH96yfAxA76XyssWd6T+OqdriAasNQMdErU5KUeg/HVd0jxnFDkD6X8FS
PBvnP57T6SgFyg5A/A+NStQV5z8eUF/C8M4OQNFJEUZsEOc/IElK9cfYDkD+
UUNInAXnPyI7IFt27A5Aa3RNefzv5j8oH8wm0xMPQLQB+I29xOY/Mucjvoxi
D0BqLpaBQm7mP7NjmVd4Zw9AEqpu8Npo5j804A7xY2wPQCZm/2JzY+Y/Ndn5
Izt2D0DflUlTpFjmPzjLz4npiQ9APJOAYAZD5j89r3tVRrEPQP77di3LF+Y/
vivx7jG2D0DhZdLXYxLmPz6oZogduw9A0+rlhfwM5j9AoVG79MQPQHQ8Ne0t
AuY/QpMnIaPYD0AlvXTokOzlP8MPnbqO3Q9AxL2QsCnn5T9EjBJUeuIPQJvG
ZHzC4eU/RYX9hlHsD0DA5zQf9NblP8YBcyA98Q9AVfsw9ozR5T9Gfui5KPYP
QL8N5dAlzOU/x/pdUxT7D0CXHFGvvsblP0h30+z//w9AliV1kVfB5T++CF2u

             "]]}, "Charting`Private`Tag#2"], 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.945109, 0.593901, 0.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{0, Small, Small, Small}]], 
            Line[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAASHfT7P//B8CrdanuQGURQEF6H1ea
+wfAa+yi/ctiEUA6fWvBNPcHwAVknAxXYBFALIMDlmnuB8BPU48qbVsRQBCP
Mz/T3AfAPTJ1ZplREUDYppORprkHwHbxQN7xPRFAaNZTNk1zB8DldNjNohYR
QIk11H+a5gbAC40HrQTIEEA7WsqsibUFwOrVEJ6OHRBAG8jhMbCYBMAINSfC
yPwOQEDeCyVtgQPAAbZA17LEDUDWWiuyflICwHtAsFEpcgxAmyBsl8c3AcCG
qBJwNzYLQNFMohZlBQDAdxTL89HfCUCXQtYHMrH9v7FolwarjwhA6n2qkgiA
+7+Dn1a9G1YHQB+GaVGIH/m/H9Rr2RgCBkCyIGvAduf2v0bpc5mtxARAzwuS
C5K69L+A6Y/ogI0DQM3Do4pWXvK/I+oBneA7AkApDvi5iSrwv2/JZvXXAAFA
zUpuOsyO67+UVUNmt1b/P1saN7ne3ua/oe3g/zu4/D+kDoWYzn/iv5VBZOHv
Rvo/YjlRvyGE27/YlpONvKD3P/Seog5hqtK/OI6ogbgn9T8XcD5biibCvzCy
aUDNefI/bi27s9DIdT9LWKU6vrDvP/6PZeShP8I/47dChEDI6j/Db+vR2aXS
P3ggOGP0deU/D86Z8CeK2z9z2/jRBn7gPxp1WU/hIOI/Qa0S+iY+1z9paZA+
XNvmPxNkx/VGWck//ThCzflE6z90U13a6H6mP2c3D3qiBvA/aTxxZhiCv7/F
AVgxm1/yP5z25NX0XtK/xTleOCWQ9D+LB5Nypijcv+SkeQsG8PY/nChMcvpi
47+lfVIueCf5P7eBgRtDV+i/3AUGdb1T+z+0KmeIkTLtvzLBzodZr/0/Dm36
L9c78b8q6lTqhuL/P2yE21M2sfO/ICN4jIUiAUCPmBCtfFv2v/yHpEuQPwJA
wvBfvpPY+L+TRL6cBFcDQEV3h7EtSfu/uZriUySGBEBOBAParu79v7Gn5bIM
oQVAck1MXYAzAMA4TvN3oNMGQMBFQegcigHAekzuzp0ACEAH1iLketoCwI0B
yM1jGQlAPEESPEEUBMAvUKwy1UkKQHGFrS57aAXAolVvPw9mC0C76HV9HaYG
wNCyH96yfAxA4tTVOoHdB8COqdriAasNQLJlaZZYLwnAHVd0jxnFDkCnzlBN
mGoKwJ7T6SgFyg5AR4OS8xdwCsAeUF/C8M4OQFcy1JmXdQrAIElK9cfYDkDd
lQ3mloAKwCI7IFt27A5AXtoRf5WWCsAoH8wm0xMPQHV1GbGSwgrAMucjvoxi
D0AkaSUVjRoLwLNjmVd4Zw9ApgdmuwwgC8A04A7xY2wPQKGipmGMJQvANdn5
Izt2D0A6zieuizALwDjLz4npiQ9AYP0pR4pGC8A9r3tVRrEPQBPGLXmHcgvA
vivx7jG2D0AEMm4fB3gLwD6oZogduw9ALpuuxYZ9C8BAoVG79MQPQFVlLxKG
iAvAQpMnIaPYD0AU2jCrhJ4LwMMPnbqO3Q9A7DBxUQSkC8BEjBJUeuIPQE2F
sfeDqQvARYX9hlHsD0DUJjJEg7QLwMYBcyA98Q9ACXRy6gK6C8BGfui5KPYP
QOy+spCCvwvAx/pdUxT7D0CLB/M2AsULwEh30+z//w9A6E0z3YHKC8DaU0U9

             "]]}, "Charting`Private`Tag#3"]}}, {}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{-3, 4}, {-3.473880508545097, 4.348880509465213}}, 
          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
          "ImageSize" -> {270, 270/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.945109, 0.593901, 0.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{0, Small, Small, Small}]], 
            Directive[
             Opacity[1.], 
             RGBColor[0.365248, 0.427802, 0.758297], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{Small, Small}]], 
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]}, {
     DisplayFunction -> Identity, PlotInteractivity :> $PlotInteractivity, 
      DisplayFunction -> Identity, PlotInteractivity :> $PlotInteractivity, 
      DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, DisplayFunction -> 
      Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {{0}, {0}}, PlotInteractivity :> $PlotInteractivity, 
      DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, DisplayFunction -> 
      Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
      PlotInteractivity :> $PlotInteractivity, DisplayFunction -> Identity, 
      PlotInteractivity :> $PlotInteractivity, 
      DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, AspectRatio -> 
      GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, 
      AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontFamily -> "CMU Serif", FontSize -> 14}, 
      DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
      FrameLabel -> {{
         HoldForm["Expected Stock Price"], None}, {
         HoldForm["True Beta \!\(\*SubscriptBox[\(\[Beta]\), \(j\)]\)"], 
         None}}, FrameStyle -> Automatic, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 270, 
      LabelStyle -> {FontFamily -> "Times"}, 
      Method -> {
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, 
      PlotRange -> {{-3, 4}, {-3.473880508545097, 4.348880509465213}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[FontFamily -> "CMU Serif", FontSize -> 14, 
         Opacity[1.], 
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[FontFamily -> "CMU Serif", FontSize -> 14, 
         Opacity[1.], 
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6], 
         Dashing[{Small, Small}]], 
        Directive[FontFamily -> "CMU Serif", FontSize -> 14, 
         Opacity[1.], 
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6], 
         Dashing[{0, Small, Small, Small}]]}, {
        Style["Low Disc. Precision", FontSize -> 10], 
        Style["Med Disc. Precision", FontSize -> 10], 
        Style["High Disc. Precision", FontSize -> 10]}, LegendMarkers -> None,
        LabelStyle -> {FontFamily -> "Times"}, LegendFunction -> Panel, 
       LegendLayout -> {"Column", 1}, LegendMargins -> 1, 
       LegendMarkerSize -> {{22, 3}}]], {0.275, 0.2}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.901489679284018*^9, 3.901489684129067*^9}, 
   3.90149058127883*^9, {3.901490631845126*^9, 3.90149064597747*^9}, {
   3.9014906793458567`*^9, 3.901490699766749*^9}, {3.901491154133395*^9, 
   3.901491183810493*^9}, 3.901491248232567*^9, 3.901491313139209*^9, 
   3.901491350271311*^9, {3.901492011441469*^9, 3.901492066259714*^9}, {
   3.901492215852691*^9, 3.901492295824094*^9}, 3.901492508132399*^9, 
   3.901492623507324*^9, 3.901492655203471*^9, 3.901494844881042*^9, {
   3.901495102124187*^9, 3.901495107887432*^9}, 3.9726012281295347`*^9, 
   3.972652839197843*^9, 3.972653168851172*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"f728a605-0ab0-440e-9796-c21e0c96d78d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 6", "Section",
 CellChangeTimes->{{3.972601260163456*^9, 
  3.9726012610214643`*^9}},ExpressionUUID->"09746187-a08c-4773-93ea-\
f466fabf93ef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ILNorm", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{"x", "*", 
         RowBox[{"NPDF", "[", 
          RowBox[{"x", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}]}],
         ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"-", "\[Infinity]"}], ",", "\[Beta]"}], "}"}]}], "]"}], ",", 
      RowBox[{"Assumptions", "->", 
       RowBox[{"\[Sigma]\[Beta]", ">", "0"}]}]}], "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Calculate", " ", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", "T"], 
     RowBox[{
      SubscriptBox["\[Beta]", "t"], "dt"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IUNorm", "=", 
    RowBox[{"FullSimplify", "[", 
     RowBox[{
      RowBox[{"Integrate", "[", 
       RowBox[{
        RowBox[{"x", "*", 
         RowBox[{"NPDF", "[", 
          RowBox[{"x", ",", "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]"}], "]"}]}],
         ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "\[Beta]", ",", "\[Infinity]"}], "}"}]}], "]"}], ",", 
      RowBox[{"Assumptions", "->", 
       RowBox[{"\[Sigma]\[Beta]", ">", "0"}]}]}], "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Calculate", " ", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "T", "1"], 
     RowBox[{
      SubscriptBox["\[Beta]", "t"], "dt"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TNorm", "=", 
   RowBox[{"NCDF", "[", 
    FractionBox[
     RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], "\[Sigma]\[Beta]"], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"PU", "=", 
   RowBox[{
    RowBox[{"\[Mu]C", "*", "IU"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "T"}], ")"}], "\[Mu]M"}], "-", 
    RowBox[{"\[Rho]", "*", "IU", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "\[Kappa]", "*", "IU"}], "+", "zB"}], ")"}], 
     SuperscriptBox["\[Sigma]C", "2"]}], "-", 
    RowBox[{"2", "\[Rho]", "*", "\[Kappa]", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "T"}], ")"}], "2"], 
     SuperscriptBox["\[Sigma]M", "2"]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PL", "=", 
   RowBox[{
    RowBox[{"\[Mu]C", "*", "IL"}], "+", 
    RowBox[{"T", "*", "\[Mu]M"}], "-", 
    RowBox[{"\[Rho]", "*", "IL", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "\[Kappa]", "*", "IL"}], "+", "zG"}], ")"}], 
     SuperscriptBox["\[Sigma]C", "2"]}], "-", 
    RowBox[{"2", "\[Rho]", "*", "\[Kappa]", "*", 
     SuperscriptBox["T", "2"], 
     SuperscriptBox["\[Sigma]M", "2"]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CE", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "\[Kappa]", "*", "IU"}], "+", "zB"}], ")"}], "\[Mu]C"}], "-", 
    RowBox[{
     FractionBox["\[Rho]", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "\[Kappa]", "*", "IU"}], "+", "zB"}], ")"}], "2"], 
     SuperscriptBox["\[Sigma]C", "2"]}], "+", 
    RowBox[{"2", "\[Kappa]", 
     RowBox[{"(", 
      RowBox[{"1", "-", "T"}], ")"}], "\[Mu]M"}], "-", 
    RowBox[{
     FractionBox["\[Rho]", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "\[Kappa]", 
        RowBox[{"(", 
         RowBox[{"1", "-", "T"}], ")"}]}], ")"}], "2"], 
     SuperscriptBox["\[Sigma]M", "2"]}], "-", 
    RowBox[{"2", "\[Kappa]", "*", "PU"}], "+", 
    RowBox[{"\[Kappa]", "*", 
     RowBox[{"(", 
      RowBox[{"PL", "+", "PU"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CEG", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "\[Kappa]", "*", "IL"}], "+", "zG"}], ")"}], "\[Mu]C"}], "-", 
    RowBox[{
     FractionBox["\[Rho]", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "\[Kappa]", "*", "IL"}], "+", "zG"}], ")"}], "2"], 
     SuperscriptBox["\[Sigma]C", "2"]}], "+", 
    RowBox[{"2", "\[Kappa]", 
     RowBox[{"(", "T", ")"}], "\[Mu]M"}], "-", 
    RowBox[{
     FractionBox["\[Rho]", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "\[Kappa]", 
        RowBox[{"(", "T", ")"}]}], ")"}], "2"], 
     SuperscriptBox["\[Sigma]M", "2"]}], "-", 
    RowBox[{"2", "\[Kappa]", "*", "PL"}], "+", 
    RowBox[{"\[Kappa]", "*", 
     RowBox[{"(", 
      RowBox[{"PL", "+", "PU"}], ")"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"CE2F", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",", 
     "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", "\[Mu]C_", ",",
      "\[Mu]M_", ",", "\[Beta]_"}], "]"}], "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"CE", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"IL", "->", "ILNorm"}], ",", 
        RowBox[{"IU", "->", "IUNorm"}], ",", 
        RowBox[{"T", "->", "TNorm"}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"\[Rho]", "->", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CEG2F", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",", 
     "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", "\[Mu]C_", ",",
      "\[Mu]M_", ",", "\[Beta]_"}], "]"}], "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"CEG", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"IL", "->", "ILNorm"}], ",", 
        RowBox[{"IU", "->", "IUNorm"}], ",", 
        RowBox[{"T", "->", "TNorm"}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"\[Rho]", "->", "1"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"PU2F", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",", 
     "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", "\[Mu]C_", ",",
      "\[Mu]M_", ",", "\[Beta]_"}], "]"}], "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"PU", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"IL", "->", "ILNorm"}], ",", 
        RowBox[{"IU", "->", "IUNorm"}], ",", 
        RowBox[{"T", "->", "TNorm"}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"\[Rho]", "->", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PL2F", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",", 
     "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", "\[Mu]C_", ",",
      "\[Mu]M_", ",", "\[Beta]_"}], "]"}], "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{"PL", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"IL", "->", "ILNorm"}], ",", 
        RowBox[{"IU", "->", "IUNorm"}], ",", 
        RowBox[{"T", "->", "TNorm"}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{"\[Rho]", "->", "1"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"derivfn", "[", 
    RowBox[{
    "\[Mu]\[Beta]_", ",", "\[Sigma]\[Beta]_", ",", "\[Sigma]C_", ",", 
     "\[Sigma]M_", ",", "zG_", ",", "zB_", ",", "\[Kappa]_", ",", "\[Mu]C_", ",",
      "\[Mu]M_", ",", "\[Beta]eq_"}], "]"}], "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"PU2F", "[", 
        RowBox[{
        "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",", 
         "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", "\[Mu]C", ",",
          "\[Mu]M", ",", "\[Beta]eq"}], "]"}], "-", 
       RowBox[{"PL2F", "[", 
        RowBox[{
        "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "\[Sigma]C", ",", 
         "\[Sigma]M", ",", "zG", ",", "zB", ",", "\[Kappa]", ",", "\[Mu]C", ",",
          "\[Mu]M", ",", "\[Beta]eq"}], "]"}]}], ",", "\[Sigma]\[Beta]"}], 
     "]"}], "]"}]}], ";"}]}], "Code",
 CellChangeTimes->{{3.9009449951544027`*^9, 3.900945003764184*^9}, {
  3.900945172086717*^9, 3.900945303123248*^9}, {3.901484701388426*^9, 
  3.901484706838032*^9}, {3.972652843009211*^9, 3.9726528502070503`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"584798d8-bf47-4ab3-bead-65af5e232a21"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1"}], ",", 
     RowBox[{"\[Sigma]\[Beta]Mx", "=", "2.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1.25"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Mu]C", "=", 
      RowBox[{"-", ".5"}]}], ",", 
     RowBox[{"\[Mu]M", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Beta]E", "[", "\[Sigma]\[Beta]_", "]"}], ":=", 
     RowBox[{"\[Beta]", "/.", 
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "zB"}], " ", "\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "+", 
          RowBox[{"zG", " ", "\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "+", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"2", " ", "\[Kappa]", " ", 
           SuperscriptBox["\[Sigma]M", "2"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
             FractionBox[
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], ")"}], "2"], 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]\[Beta]", "2"]}]]}]], " ", 
           SqrtBox[
            FractionBox["2", "\[Pi]"]], " ", "\[Beta]", " ", "\[Kappa]", " ", 
           
           SuperscriptBox["\[Sigma]C", "2"], " ", "\[Sigma]\[Beta]"}], "+", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"], " ", 
           RowBox[{"Erf", "[", 
            FractionBox[
             RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}], "-", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"], " ", 
           RowBox[{"Erfc", "[", 
            FractionBox[
             RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}], "+", 
          RowBox[{"2", " ", "\[Kappa]", " ", 
           SuperscriptBox["\[Sigma]M", "2"], " ", 
           RowBox[{"Erfc", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"-", "\[Beta]"}], "+", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}]}], "==", "0"}],
         ",", 
        RowBox[{"{", 
         RowBox[{"\[Beta]", ",", "\[Mu]\[Beta]"}], "}"}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"pfn", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"derivfn", "[", 
         RowBox[{
         "\[Mu]\[Beta]", ",", "xp", ",", "\[Sigma]C", ",", "\[Sigma]M", ",", 
          "zG", ",", "zB", ",", "\[Kappa]", ",", "\[Mu]C", ",", "\[Mu]M", ",", 
          RowBox[{"\[Beta]E", "[", "xp", "]"}]}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"xp", ",", ".01", ",", "\[Sigma]\[Beta]Mx"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{"pfn", ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          
          RowBox[{"\"\<Informativeness \!\(\*SubscriptBox[\(\[Sigma]\), \
OverscriptBox[\(\[Beta]\), \(^\)]]\)\>\"", ",", "Black"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          
          RowBox[{"\"\<\!\(\*FractionBox[\(\[PartialD]\*SubscriptBox[\(\
\[CapitalPi]\), \(G\)]\), \
\(\[PartialD]\*SubscriptBox[OverscriptBox[\(\[Sigma]\), \(^\)], \
\(\[Beta]\)]\)]\)\>\"", ",", "Black", ",", "20"}], "]"}]}], "}"}]}], ",", 
      RowBox[{"RotateLabel", "->", "False"}], ",", 
      RowBox[{"ImageSize", "->", "270"}], ",", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
         RowBox[{"InfiniteLine", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{".535", ",", ".1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{".535", ",", ".2"}], "}"}]}], "}"}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<Wealth shifts\\nto brown\\ninvestors\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "10", ",",
               "Black", ",", 
              RowBox[{"TextAlignment", "->", "Center"}]}], "]"}], "]"}], ",", 
           
           RowBox[{"{", 
            RowBox[{".97", ",", "1.5"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Text", "[", 
            RowBox[{"Style", "[", 
             RowBox[{"\"\<Wealth shifts\\nto green\\ninvestors\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "10", ",",
               "Black", ",", 
              RowBox[{"TextAlignment", "->", "Center"}]}], "]"}], "]"}], ",", 
           
           RowBox[{"{", 
            RowBox[{".12", ",", 
             RowBox[{"-", "1.3"}]}], "}"}]}], "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotRange", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", ".25"}], ",", "2.5"}], "}"}], ",", "Automatic"}], 
        "}"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.901470723357745*^9, 3.901470724839393*^9}, {
   3.901470781890291*^9, 3.9014708272994823`*^9}, {3.901470866702579*^9, 
   3.9014708695060797`*^9}, {3.901470961200418*^9, 3.901470979418666*^9}, {
   3.901471091635998*^9, 3.901471091795095*^9}, {3.901471156100974*^9, 
   3.90147120228485*^9}, {3.901471321613435*^9, 3.901471325477774*^9}, {
   3.901471371715143*^9, 3.901471424395409*^9}, {3.901475858580759*^9, 
   3.901475898427397*^9}, {3.901475944165874*^9, 3.901475966305643*^9}, {
   3.901476081693754*^9, 3.901476300419593*^9}, {3.901476637703693*^9, 
   3.901476643493348*^9}, {3.901476940154249*^9, 3.901476941063029*^9}, {
   3.901476984503872*^9, 3.901476985361092*^9}, 3.901477191108591*^9, {
   3.901477254687978*^9, 3.901477255252163*^9}, {3.901484308324929*^9, 
   3.901484322548435*^9}, {3.901484768007009*^9, 3.901484788595578*^9}, 
   3.901485437796378*^9, 3.901549575973892*^9, 3.97265285467898*^9},
 CellLabel->
  "In[250]:=",ExpressionUUID->"b5b31f33-6668-44d8-bb94-de917d014b00"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwVjXk01Xkfx+/1u/f3WIZrb4qEEoNWRlL6fJFJZXmYURSRiWijTJdU15al
tCGkRY0SSUKRpcfvm1CybyW7a8k69uVy3Ts9f7zO+7zOeZ/zUnPztnMXodFo
nB/8f00UnJV6yitBOv4a08VPEd28FfhydVQVDF4qaA9gKyDV+p2964xq4D7X
a7DBWw5tT7l7QMG+Bo6N64eb2MohuwszFUyfGvjp7B9n+rbKoStqGVkDKTUw
2O7DLJuTRYNnlThpMrWwzjBbvDdIFmXLLv6sO1QLsp0uPRpJMkgt/XDqyqo6
iBYveOU+zUJ5Zs0lL1rqQH8kJqK9lIUsO6w7jfvrwLeKzY6PZyG2tKmCm6AO
ihjRDvVGLFTF1gpN31wPnE6HD7+HSyE/s9kjO+LqQVaqbFr+F0lU3X5T0flI
AxQq6f2ldk8cubFFt46faAAJkaZ24TlxtMAKsQr2a4A2I18ZWUtxpG52/krK
7QZY82aLRZ1ADPk/Pzw1VtIA98prRJ97iKG1bK0ajmYj1GutEfMHUXSBVRL2
eKIRJJJphipyJPp0OkgKCRpBLjHDa/EfJlKs2pXQJdEEHoV77pCVTPQmsihN
RbMJePq/Ob8MZaIJem7lA+cmkD41k6M9z0CeM6kyiZ+bYEzvmmLCAIEcvt14
GP20GVIz7r1e6KOj1G2W67fkNEN2Y6n8pnI6mosTf1VHNYNNzGWHqFQ6umMX
gVltzbAcNc9+c4KO6iqDem/IfIEq12Dq/RQNWRT7/nKN8wVG9mvRb4vRkOET
x9wQh68wk1e2nP6YD6r5eU+47l9h74xhX9wpPohWy8WY+n4F96ndEUWGfGiZ
qz4jcvMrhLF8QnLrl8B/n6lWyIevENeqPudILkHBpPb94I0t8N1wMU8+gAdG
iB8UxPgGiZykqvnIOTDuSLLkZLUCj2H6pVJvEjL//qi88K4VONPVm25LTYKK
x8To2YpW0B/dbuc3NAG0cZMb7txWqDU9se3lowkopfVXW8q3wWGNo5dzJCfA
cp2OjZJ/G1innnw63zUGh06+tc2HdnigIm+B7w6BP6/2wFRNB1igng0S+T2Q
HGJ850J7B4yo0Gi+fj1QLfGinjbcAasendmjuK0H1FXCLVnMTpA31aRJve2G
KtOdpro7OsEi46qfr28XqF1P2+CR2gmfzydtD4ltg88qwYzWwC5gL4VWG2s0
gZT6ym+ud7vh4trFUWFlAXgW53pmJ3WDka1i+6hFPpQcslugp3SDbc+xB2If
8+B8bNSKJ9ndcJZXfbC6/DW0MwT2/Z+7IZgnp/s67QU8/85t8Fr+4X21pK1e
MOx+mVF1zq0H/tTZbyrt9oYKMET4ii4XQgRSJYIttZTq5oyQ3K1cKHqcNCtS
W0uVa/5sPmDIBeWF+huVv9ZRcismKvaYcyGsvOxyfn0dlTH7qFH8CBfK1jpe
XSIbqM4c4cDtW1yIjzOJsD/eRJluoCQfTnHBxooxW0r7Romp7zqcm98L+0yU
WdF13VRVclNSrEc/7LygxosWHaLS5XuUMucHQCL9waWYq+PUu9XhJuz0QYho
NXwpVzFFTfLoSvvth8GmqIHt+scsZfJxeoNT7wh4zWyM93Wfp0p1OEOrYsdg
7c7DvU5OPMotmNOpsH4cpk9KOHzhLVKr3krscjk9AX0Wtd7Xw/mUfMKHgQKz
SYhf/s9eQdcy9cDbICNHYgpC9QIaM2lCqjh21jykbwoqaqW+qEjS8Oksb/54
5jR0+6S3VITScKZB80/Hzs+AdUBJVsEYDUeKRkxmWs7CvPG7y5wDdDzRMD2V
oDAH+/LsxEZf0fHUYMang+Nz0BGk4vxdVASHedourC6bB/EVv5caOYrgZ91Z
u0OuL4B1y4Xvz5JEsOtTJ/f/HePBoULZ7Mw+EZzm+iE5fuMi+KkL9xeqETg4
XMGIPbMIf/o8lyMPEXhm/nWKbuUSWNcdj3gWS+DZo5Ibg2P5YK6Ki+6XE/j2
itfXMk4tw6tTFvPGSwTOL5NjsLcJwF0n3Mpem4HPdrh8NRcIwGDNajxygIFL
0QJntFkI1ru1snvDGNiuJuXvuzY05F1ERb3PYmBW8uzpZ+9oKGBEtiaik4Hj
tHccf6tJR9rtR1W0JZj46KbOMwlRdPQkIl25U5+JFx1Tu7nzdJSRbrku0o2J
W2k1rstOIihSw4A7eoOJQ52GJZWwCKr/1LwmsICJeR26Gk91CNTZsP6R2TAT
57ZV7ePfIlCEGU3TfyWJ1V3DHd9FEyiyK4Vls4rEN/vA81IsgWq9VVXWK5HY
cywnjB9PoOIQbkaTMolXCe9i/kMCPTyXH6unSuJAdXeD5RcEenLaPmFhPYn3
ei2rCT4SyMVKef6RPonzxvI2F1cQiO92t/jirz9653yAU0mgFunNmQcNSMwP
6HUS1BCocGKGKW1I4szrFQmCZgLF+CcnhuwgsVxWnKSwl0AnWWku3qYkDtK3
Uab6f/zbLmZZmZF4NF9UJ/A7gfrKT2jr7iZx+fuLFsJhAmnYf0kcMiexf+PR
UOHkD6eHeXrsJXHfQaUYappAb3Qaid/2kdi2velx4CyB3p/P+aSxn8Ta/XuK
hQsESjzuXNtvSeIEL3o1tUig2H3mMuVWJGb8U9gWyCeQ6oe5S8+sSexz7q9h
EBCo6XmgbIQNiTvmNvCEQgKxi8bqj/+XxP8CE2TmWw==
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             Line[CompressedData["
1:eJwVjXk01Xkfx+/1u/f3WIZrb4qEEoNWRlL6fJFJZXmYURSRiWijTJdU15al
tCGkRY0SSUKRpcfvm1CybyW7a8k69uVy3Ts9f7zO+7zOeZ/zUnPztnMXodFo
nB/8f00UnJV6yitBOv4a08VPEd28FfhydVQVDF4qaA9gKyDV+p2964xq4D7X
a7DBWw5tT7l7QMG+Bo6N64eb2MohuwszFUyfGvjp7B9n+rbKoStqGVkDKTUw
2O7DLJuTRYNnlThpMrWwzjBbvDdIFmXLLv6sO1QLsp0uPRpJMkgt/XDqyqo6
iBYveOU+zUJ5Zs0lL1rqQH8kJqK9lIUsO6w7jfvrwLeKzY6PZyG2tKmCm6AO
ihjRDvVGLFTF1gpN31wPnE6HD7+HSyE/s9kjO+LqQVaqbFr+F0lU3X5T0flI
AxQq6f2ldk8cubFFt46faAAJkaZ24TlxtMAKsQr2a4A2I18ZWUtxpG52/krK
7QZY82aLRZ1ADPk/Pzw1VtIA98prRJ97iKG1bK0ajmYj1GutEfMHUXSBVRL2
eKIRJJJphipyJPp0OkgKCRpBLjHDa/EfJlKs2pXQJdEEHoV77pCVTPQmsihN
RbMJePq/Ob8MZaIJem7lA+cmkD41k6M9z0CeM6kyiZ+bYEzvmmLCAIEcvt14
GP20GVIz7r1e6KOj1G2W67fkNEN2Y6n8pnI6mosTf1VHNYNNzGWHqFQ6umMX
gVltzbAcNc9+c4KO6iqDem/IfIEq12Dq/RQNWRT7/nKN8wVG9mvRb4vRkOET
x9wQh68wk1e2nP6YD6r5eU+47l9h74xhX9wpPohWy8WY+n4F96ndEUWGfGiZ
qz4jcvMrhLF8QnLrl8B/n6lWyIevENeqPudILkHBpPb94I0t8N1wMU8+gAdG
iB8UxPgGiZykqvnIOTDuSLLkZLUCj2H6pVJvEjL//qi88K4VONPVm25LTYKK
x8To2YpW0B/dbuc3NAG0cZMb7txWqDU9se3lowkopfVXW8q3wWGNo5dzJCfA
cp2OjZJ/G1innnw63zUGh06+tc2HdnigIm+B7w6BP6/2wFRNB1igng0S+T2Q
HGJ850J7B4yo0Gi+fj1QLfGinjbcAasendmjuK0H1FXCLVnMTpA31aRJve2G
KtOdpro7OsEi46qfr28XqF1P2+CR2gmfzydtD4ltg88qwYzWwC5gL4VWG2s0
gZT6ym+ud7vh4trFUWFlAXgW53pmJ3WDka1i+6hFPpQcslugp3SDbc+xB2If
8+B8bNSKJ9ndcJZXfbC6/DW0MwT2/Z+7IZgnp/s67QU8/85t8Fr+4X21pK1e
MOx+mVF1zq0H/tTZbyrt9oYKMET4ii4XQgRSJYIttZTq5oyQ3K1cKHqcNCtS
W0uVa/5sPmDIBeWF+huVv9ZRcismKvaYcyGsvOxyfn0dlTH7qFH8CBfK1jpe
XSIbqM4c4cDtW1yIjzOJsD/eRJluoCQfTnHBxooxW0r7Romp7zqcm98L+0yU
WdF13VRVclNSrEc/7LygxosWHaLS5XuUMucHQCL9waWYq+PUu9XhJuz0QYho
NXwpVzFFTfLoSvvth8GmqIHt+scsZfJxeoNT7wh4zWyM93Wfp0p1OEOrYsdg
7c7DvU5OPMotmNOpsH4cpk9KOHzhLVKr3krscjk9AX0Wtd7Xw/mUfMKHgQKz
SYhf/s9eQdcy9cDbICNHYgpC9QIaM2lCqjh21jykbwoqaqW+qEjS8Oksb/54
5jR0+6S3VITScKZB80/Hzs+AdUBJVsEYDUeKRkxmWs7CvPG7y5wDdDzRMD2V
oDAH+/LsxEZf0fHUYMang+Nz0BGk4vxdVASHedourC6bB/EVv5caOYrgZ91Z
u0OuL4B1y4Xvz5JEsOtTJ/f/HePBoULZ7Mw+EZzm+iE5fuMi+KkL9xeqETg4
XMGIPbMIf/o8lyMPEXhm/nWKbuUSWNcdj3gWS+DZo5Ibg2P5YK6Ki+6XE/j2
itfXMk4tw6tTFvPGSwTOL5NjsLcJwF0n3Mpem4HPdrh8NRcIwGDNajxygIFL
0QJntFkI1ru1snvDGNiuJuXvuzY05F1ERb3PYmBW8uzpZ+9oKGBEtiaik4Hj
tHccf6tJR9rtR1W0JZj46KbOMwlRdPQkIl25U5+JFx1Tu7nzdJSRbrku0o2J
W2k1rstOIihSw4A7eoOJQ52GJZWwCKr/1LwmsICJeR26Gk91CNTZsP6R2TAT
57ZV7ePfIlCEGU3TfyWJ1V3DHd9FEyiyK4Vls4rEN/vA81IsgWq9VVXWK5HY
cywnjB9PoOIQbkaTMolXCe9i/kMCPTyXH6unSuJAdXeD5RcEenLaPmFhPYn3
ei2rCT4SyMVKef6RPonzxvI2F1cQiO92t/jirz9653yAU0mgFunNmQcNSMwP
6HUS1BCocGKGKW1I4szrFQmCZgLF+CcnhuwgsVxWnKSwl0AnWWku3qYkDtK3
Uab6f/zbLmZZmZF4NF9UJ/A7gfrKT2jr7iZx+fuLFsJhAmnYf0kcMiexf+PR
UOHkD6eHeXrsJXHfQaUYappAb3Qaid/2kdi2velx4CyB3p/P+aSxn8Ta/XuK
hQsESjzuXNtvSeIEL3o1tUig2H3mMuVWJGb8U9gWyCeQ6oe5S8+sSexz7q9h
EBCo6XmgbIQNiTvmNvCEQgKxi8bqj/+XxP8CE2TmWw==
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.01, 2.5}, {-2.789260520999444, 
            5.616573416312818}}, "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {250, 250/GoldenRatio}, 
           "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.01, 2.5}, {-2.789260520999444, 
           5.616573416312818}}, "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0, 0}, "ImageSize" -> {250, 250/GoldenRatio}, 
          "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]], 
         Line[CompressedData["
1:eJwVjXk01Xkfx+/1u/f3WIZrb4qEEoNWRlL6fJFJZXmYURSRiWijTJdU15al
tCGkRY0SSUKRpcfvm1CybyW7a8k69uVy3Ts9f7zO+7zOeZ/zUnPztnMXodFo
nB/8f00UnJV6yitBOv4a08VPEd28FfhydVQVDF4qaA9gKyDV+p2964xq4D7X
a7DBWw5tT7l7QMG+Bo6N64eb2MohuwszFUyfGvjp7B9n+rbKoStqGVkDKTUw
2O7DLJuTRYNnlThpMrWwzjBbvDdIFmXLLv6sO1QLsp0uPRpJMkgt/XDqyqo6
iBYveOU+zUJ5Zs0lL1rqQH8kJqK9lIUsO6w7jfvrwLeKzY6PZyG2tKmCm6AO
ihjRDvVGLFTF1gpN31wPnE6HD7+HSyE/s9kjO+LqQVaqbFr+F0lU3X5T0flI
AxQq6f2ldk8cubFFt46faAAJkaZ24TlxtMAKsQr2a4A2I18ZWUtxpG52/krK
7QZY82aLRZ1ADPk/Pzw1VtIA98prRJ97iKG1bK0ajmYj1GutEfMHUXSBVRL2
eKIRJJJphipyJPp0OkgKCRpBLjHDa/EfJlKs2pXQJdEEHoV77pCVTPQmsihN
RbMJePq/Ob8MZaIJem7lA+cmkD41k6M9z0CeM6kyiZ+bYEzvmmLCAIEcvt14
GP20GVIz7r1e6KOj1G2W67fkNEN2Y6n8pnI6mosTf1VHNYNNzGWHqFQ6umMX
gVltzbAcNc9+c4KO6iqDem/IfIEq12Dq/RQNWRT7/nKN8wVG9mvRb4vRkOET
x9wQh68wk1e2nP6YD6r5eU+47l9h74xhX9wpPohWy8WY+n4F96ndEUWGfGiZ
qz4jcvMrhLF8QnLrl8B/n6lWyIevENeqPudILkHBpPb94I0t8N1wMU8+gAdG
iB8UxPgGiZykqvnIOTDuSLLkZLUCj2H6pVJvEjL//qi88K4VONPVm25LTYKK
x8To2YpW0B/dbuc3NAG0cZMb7txWqDU9se3lowkopfVXW8q3wWGNo5dzJCfA
cp2OjZJ/G1innnw63zUGh06+tc2HdnigIm+B7w6BP6/2wFRNB1igng0S+T2Q
HGJ850J7B4yo0Gi+fj1QLfGinjbcAasendmjuK0H1FXCLVnMTpA31aRJve2G
KtOdpro7OsEi46qfr28XqF1P2+CR2gmfzydtD4ltg88qwYzWwC5gL4VWG2s0
gZT6ym+ud7vh4trFUWFlAXgW53pmJ3WDka1i+6hFPpQcslugp3SDbc+xB2If
8+B8bNSKJ9ndcJZXfbC6/DW0MwT2/Z+7IZgnp/s67QU8/85t8Fr+4X21pK1e
MOx+mVF1zq0H/tTZbyrt9oYKMET4ii4XQgRSJYIttZTq5oyQ3K1cKHqcNCtS
W0uVa/5sPmDIBeWF+huVv9ZRcismKvaYcyGsvOxyfn0dlTH7qFH8CBfK1jpe
XSIbqM4c4cDtW1yIjzOJsD/eRJluoCQfTnHBxooxW0r7Romp7zqcm98L+0yU
WdF13VRVclNSrEc/7LygxosWHaLS5XuUMucHQCL9waWYq+PUu9XhJuz0QYho
NXwpVzFFTfLoSvvth8GmqIHt+scsZfJxeoNT7wh4zWyM93Wfp0p1OEOrYsdg
7c7DvU5OPMotmNOpsH4cpk9KOHzhLVKr3krscjk9AX0Wtd7Xw/mUfMKHgQKz
SYhf/s9eQdcy9cDbICNHYgpC9QIaM2lCqjh21jykbwoqaqW+qEjS8Oksb/54
5jR0+6S3VITScKZB80/Hzs+AdUBJVsEYDUeKRkxmWs7CvPG7y5wDdDzRMD2V
oDAH+/LsxEZf0fHUYMang+Nz0BGk4vxdVASHedourC6bB/EVv5caOYrgZ91Z
u0OuL4B1y4Xvz5JEsOtTJ/f/HePBoULZ7Mw+EZzm+iE5fuMi+KkL9xeqETg4
XMGIPbMIf/o8lyMPEXhm/nWKbuUSWNcdj3gWS+DZo5Ibg2P5YK6Ki+6XE/j2
itfXMk4tw6tTFvPGSwTOL5NjsLcJwF0n3Mpem4HPdrh8NRcIwGDNajxygIFL
0QJntFkI1ru1snvDGNiuJuXvuzY05F1ERb3PYmBW8uzpZ+9oKGBEtiaik4Hj
tHccf6tJR9rtR1W0JZj46KbOMwlRdPQkIl25U5+JFx1Tu7nzdJSRbrku0o2J
W2k1rstOIihSw4A7eoOJQ52GJZWwCKr/1LwmsICJeR26Gk91CNTZsP6R2TAT
57ZV7ePfIlCEGU3TfyWJ1V3DHd9FEyiyK4Vls4rEN/vA81IsgWq9VVXWK5HY
cywnjB9PoOIQbkaTMolXCe9i/kMCPTyXH6unSuJAdXeD5RcEenLaPmFhPYn3
ei2rCT4SyMVKef6RPonzxvI2F1cQiO92t/jirz9653yAU0mgFunNmQcNSMwP
6HUS1BCocGKGKW1I4szrFQmCZgLF+CcnhuwgsVxWnKSwl0AnWWku3qYkDtK3
Uab6f/zbLmZZmZF4NF9UJ/A7gfrKT2jr7iZx+fuLFsJhAmnYf0kcMiexf+PR
UOHkD6eHeXrsJXHfQaUYappAb3Qaid/2kdi2velx4CyB3p/P+aSxn8Ta/XuK
hQsESjzuXNtvSeIEL3o1tUig2H3mMuVWJGb8U9gWyCeQ6oe5S8+sSexz7q9h
EBCo6XmgbIQNiTvmNvCEQgKxi8bqj/+XxP8CE2TmWw==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.01, 2.5}, {-2.789260520999444, 5.616573416312818}}, 
       "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{
    Directive[
     GrayLevel[0.5]], 
    Dashing[{0, Small, Small, Small}], 
    TagBox[
     ConicHullRegionBox[{{0.535, 0.1}, {0.535, 0.2}}], "InfiniteLine"], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Wealth shifts\\nto brown\\ninvestors\"", FontFamily -> "Times", 
            10, 
            GrayLevel[0], TextAlignment -> Center, StripOnInput -> False], 
           TextForm]], "InlineText"], 
        Text[
         Style[
         "Wealth shifts\nto brown\ninvestors", FontFamily -> "Times", 10, 
          GrayLevel[0], TextAlignment -> Center]]], TraditionalForm]], {0.97, 
     1.5}], 
    InsetBox[
     BoxData[
      FormBox[
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Wealth shifts\\nto green\\ninvestors\"", FontFamily -> "Times", 
            10, 
            GrayLevel[0], TextAlignment -> Center, StripOnInput -> False], 
           TextForm]], "InlineText"], 
        Text[
         Style[
         "Wealth shifts\nto green\ninvestors", FontFamily -> "Times", 10, 
          GrayLevel[0], TextAlignment -> Center]]], TraditionalForm]], {
     0.12, -1.3}]},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{
    FormBox[
     StyleBox[
     "\"Informativeness \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \
OverscriptBox[\\(\[Beta]\\), \\(^\\)]]\\)\"", 
      GrayLevel[0], StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox[
     "\"\\!\\(\\*FractionBox[\\(\[PartialD]\\*SubscriptBox[\\(\[CapitalPi]\\),\
 \\(G\\)]\\), \\(\[PartialD]\\*SubscriptBox[OverscriptBox[\\(\[Sigma]\\), \
\\(^\\)], \\(\[Beta]\\)]\\)]\\)\"", 
      GrayLevel[0], 20, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->270,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{-0.25, 2.5}, Automatic},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  RotateLabel->False,
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.901470761265035*^9, 3.901470827699767*^9}, {
   3.9014708671468782`*^9, 3.901470869803091*^9}, {3.901470962354959*^9, 
   3.9014709798417597`*^9}, 3.9014710921128607`*^9, {3.9014711564005632`*^9, 
   3.9014712027602243`*^9}, {3.901471321925649*^9, 3.9014713259489317`*^9}, {
   3.901471372890375*^9, 3.901471424752232*^9}, {3.901475866678556*^9, 
   3.90147589881562*^9}, {3.901475955324847*^9, 3.901475966680811*^9}, {
   3.901476082031204*^9, 3.901476300731921*^9}, 3.9014766439145203`*^9, 
   3.901476941487042*^9, 3.901476985669174*^9, 3.90147719144308*^9, 
   3.901477264245172*^9, {3.9014843089902*^9, 3.901484323013957*^9}, {
   3.901484742430914*^9, 3.901484788884927*^9}, 3.901485438106347*^9, 
   3.901549576283115*^9, 3.972601355767764*^9, {3.9726528553913*^9, 
   3.972652878830092*^9}},
 CellLabel->
  "Out[250]=",ExpressionUUID->"02389f35-b57e-4c69-8e9b-9cc94799f0da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1"}], ",", 
     RowBox[{"\[Sigma]\[Beta]Mx", "=", "2.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1.25"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Mu]C", "=", 
      RowBox[{"-", ".5"}]}], ",", 
     RowBox[{"\[Mu]M", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Beta]E", "[", "\[Sigma]\[Beta]_", "]"}], ":=", 
     RowBox[{"\[Beta]", "/.", 
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "zB"}], " ", "\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "+", 
          RowBox[{"zG", " ", "\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "+", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"2", " ", "\[Kappa]", " ", 
           SuperscriptBox["\[Sigma]M", "2"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
             FractionBox[
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], ")"}], "2"], 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]\[Beta]", "2"]}]]}]], " ", 
           SqrtBox[
            FractionBox["2", "\[Pi]"]], " ", "\[Beta]", " ", "\[Kappa]", " ", 
           
           SuperscriptBox["\[Sigma]C", "2"], " ", "\[Sigma]\[Beta]"}], "+", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"], " ", 
           RowBox[{"Erf", "[", 
            FractionBox[
             RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}], "-", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"], " ", 
           RowBox[{"Erfc", "[", 
            FractionBox[
             RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}], "+", 
          RowBox[{"2", " ", "\[Kappa]", " ", 
           SuperscriptBox["\[Sigma]M", "2"], " ", 
           RowBox[{"Erfc", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"-", "\[Beta]"}], "+", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}]}], "==", "0"}],
         ",", 
        RowBox[{"{", 
         RowBox[{"\[Beta]", ",", "\[Mu]\[Beta]"}], "}"}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"pfn", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"NCDF", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"\[Beta]E", "[", "xp", "]"}], "-", "\[Mu]\[Beta]"}], "xp"],
          "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"xp", ",", ".01", ",", "\[Sigma]\[Beta]Mx"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{"pfn", ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          
          RowBox[{"\"\<Informativeness \!\(\*SubscriptBox[\(\[Sigma]\), \
OverscriptBox[\(\[Beta]\), \(^\)]]\)\>\"", ",", "Black"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<Equilibrium T\>\"", ",", "Black"}], "]"}]}], "}"}]}], ",", 
      RowBox[{"ImageSize", "->", "250"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.901485823423635*^9, 3.9014858940769053`*^9}, {
   3.901486015689997*^9, 3.901486016867739*^9}, {3.901486058853092*^9, 
   3.901486059113328*^9}, {3.901486116318673*^9, 3.901486116395358*^9}, 
   3.901549580001165*^9, 
   3.972653177141862*^9},ExpressionUUID->"a6189833-633d-486f-b583-\
8f18f1729127"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], CapForm["Butt"], 
         LineBox[CompressedData["
1:eJwVzXs41XcAx3H8bOlppSZM0iLLhmr1jIxHn6/kidSj2rpYFEXYcmtlWJHb
qXSRGUcljzuP6fAksXI4IZfi5HYct+Nnx/10jONyHHYu2/54P68/38bng4/7
aqipqR35r//9bG+lwWRkPD4u1r9guooNTYZ0vesaBjQu3piwMWBjtttKi/X4
JhxDTRguFmw0XX4u/bk6ER98ZvTOubFhx++dUkU9QPIGceEZJhuiT3sa73DS
0OS3i/F4ew1Mnfw5HdnZKN1vd9t+fy1iq89HTpmycGVfY8GWSg7sk2ZfLedU
Y+qCUpsvq8OtvF2OZQUNOHhFUuovbYDiSN0veoNvMR966JDR+0YYF58pNGht
hyLIo9OkvBkR2nUJWbNduJ8/r2vl+RY2ue4Vsaf5KF1wiU1d3wp7QebhqLJ+
bK7lHVPltCF8+f3JOa4ATqJQ3+iP3mOdiUGfV/owrj80sPG0aUekDeHEWwrR
vRKX8bS3HatN9p2pqBpB5ha3rI7ADrTmdGemXBzDjWTN3O9XdaJ441+GrKVx
+D/9rvhsUieqjRgOYcWTsOK6BGcYdkGyrG7oekKEhvyazpTMLjg0ze/wGPmA
Xu2WDd/qdKPBImpqU8o0TEaENrjbjfMxUUO622cgl5prXZd1Y1Plmn3nAmeh
d6/TXD+Ah43M+vE/HSUQhzwcP9HFQ0awdcmzNXMIKo/YLNvTg5qURafY0TmI
00VxdsweBJYFy2dY8zhp73dgUdIDljXvE5+rCzCtng697szHLa2bEtbhRVSJ
WW0ruXzMds7PMXWlqF+nGPVb4mNusqT51IwUNRaXljSO9iLB/5jM6M0SHCTm
cZH5vSgYLjsQe1cGi6ylPUYLvfDK8/Bl+yzj6ksfzzjnPhR51eek7VyBmVFG
9uu0PsQwdG3DFlZQ5B5tbDPSh4Wl8nzLd/+gY0JryNa6H4vea3fGpMjxOswq
VzO+Hw/0yxNLLikQUikuWt/Xj6o3Opphe5Wo231PFfXVAEIF5/hOSiUsnx93
yI0YQAORRYl5KuRd8+Rf7BzAcW5+drqbGgk/oCn5wWwQ2jmLgQXVaqT+4Qee
BWMQqeZ2fpVm6sTscIE8YXwQ3ruGgph31MnRgG01HEcBVtwLh4VL6iTo9MsG
aYkA/WpcL4WHBrFVcJ9E6AwhzkO01pCjQarSnd6dujaEZYHlF3kWFEkWKrVP
zw+hYqD1kDyJIlPxQXGxfjRMvBju1ckU0Rhj5/8eQOP+KPyvpVDE7UizZeFP
NPynnyXI0yiib6gX0BZMY5MqnSN/QhFhEufRlnAa0Sa+1oo/KFI0IRZ23aLh
EqAwVjZRxM86Q3W7mMaL6Rdf17RQxHPrcFVRyX+/yyGIekcRcXFpTxOLhjxy
xEPJpQhDbxCrymmw7rYwlTyKOGs2NiW+oqFTlrpWNUKRrWOzhXmtNG5847a5
dowiJ2MnC1q4NMRVWhbRExSpCF9ePdNOo/H1r84qEUUaXffLbXk0wru841QS
ijCfeD7gC2iMnjL8rXaeIq4d2qUqmsaxwe6s6EWKDD5K3P2lkIb52MEalYwi
xm0l3pHjNJgB6m21KxSJoey18yZpaP79ciBaTpHeH/22ckU0Qi5fEUFJkbPN
n6fKxDQE0h3LKhVFwrPcA7fN0PgXcVeFIw==
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             Line[CompressedData["
1:eJwVzXs41XcAx3H8bOlppSZM0iLLhmr1jIxHn6/kidSj2rpYFEXYcmtlWJHb
qXSRGUcljzuP6fAksXI4IZfi5HYct+Nnx/10jONyHHYu2/54P68/38bng4/7
aqipqR35r//9bG+lwWRkPD4u1r9guooNTYZ0vesaBjQu3piwMWBjtttKi/X4
JhxDTRguFmw0XX4u/bk6ER98ZvTOubFhx++dUkU9QPIGceEZJhuiT3sa73DS
0OS3i/F4ew1Mnfw5HdnZKN1vd9t+fy1iq89HTpmycGVfY8GWSg7sk2ZfLedU
Y+qCUpsvq8OtvF2OZQUNOHhFUuovbYDiSN0veoNvMR966JDR+0YYF58pNGht
hyLIo9OkvBkR2nUJWbNduJ8/r2vl+RY2ue4Vsaf5KF1wiU1d3wp7QebhqLJ+
bK7lHVPltCF8+f3JOa4ATqJQ3+iP3mOdiUGfV/owrj80sPG0aUekDeHEWwrR
vRKX8bS3HatN9p2pqBpB5ha3rI7ADrTmdGemXBzDjWTN3O9XdaJ441+GrKVx
+D/9rvhsUieqjRgOYcWTsOK6BGcYdkGyrG7oekKEhvyazpTMLjg0ze/wGPmA
Xu2WDd/qdKPBImpqU8o0TEaENrjbjfMxUUO622cgl5prXZd1Y1Plmn3nAmeh
d6/TXD+Ah43M+vE/HSUQhzwcP9HFQ0awdcmzNXMIKo/YLNvTg5qURafY0TmI
00VxdsweBJYFy2dY8zhp73dgUdIDljXvE5+rCzCtng697szHLa2bEtbhRVSJ
WW0ruXzMds7PMXWlqF+nGPVb4mNusqT51IwUNRaXljSO9iLB/5jM6M0SHCTm
cZH5vSgYLjsQe1cGi6ylPUYLvfDK8/Bl+yzj6ksfzzjnPhR51eek7VyBmVFG
9uu0PsQwdG3DFlZQ5B5tbDPSh4Wl8nzLd/+gY0JryNa6H4vea3fGpMjxOswq
VzO+Hw/0yxNLLikQUikuWt/Xj6o3Opphe5Wo231PFfXVAEIF5/hOSiUsnx93
yI0YQAORRYl5KuRd8+Rf7BzAcW5+drqbGgk/oCn5wWwQ2jmLgQXVaqT+4Qee
BWMQqeZ2fpVm6sTscIE8YXwQ3ruGgph31MnRgG01HEcBVtwLh4VL6iTo9MsG
aYkA/WpcL4WHBrFVcJ9E6AwhzkO01pCjQarSnd6dujaEZYHlF3kWFEkWKrVP
zw+hYqD1kDyJIlPxQXGxfjRMvBju1ckU0Rhj5/8eQOP+KPyvpVDE7UizZeFP
NPynnyXI0yiib6gX0BZMY5MqnSN/QhFhEufRlnAa0Sa+1oo/KFI0IRZ23aLh
EqAwVjZRxM86Q3W7mMaL6Rdf17RQxHPrcFVRyX+/yyGIekcRcXFpTxOLhjxy
xEPJpQhDbxCrymmw7rYwlTyKOGs2NiW+oqFTlrpWNUKRrWOzhXmtNG5847a5
dowiJ2MnC1q4NMRVWhbRExSpCF9ePdNOo/H1r84qEUUaXffLbXk0wru841QS
ijCfeD7gC2iMnjL8rXaeIq4d2qUqmsaxwe6s6EWKDD5K3P2lkIb52MEalYwi
xm0l3pHjNJgB6m21KxSJoey18yZpaP79ciBaTpHeH/22ckU0Qi5fEUFJkbPN
n6fKxDQE0h3LKhVFwrPcA7fN0PgXcVeFIw==
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.01, 2.5}, {0.11339023036240556`, 
            0.4989708488342397}}, "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {0, 0.11339023036240581`}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.01, 2.5}, {0.11339023036240556`, 
           0.4989708488342397}}, "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0, 0.11339023036240581`}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]], 
         Line[CompressedData["
1:eJwVzXs41XcAx3H8bOlppSZM0iLLhmr1jIxHn6/kidSj2rpYFEXYcmtlWJHb
qXSRGUcljzuP6fAksXI4IZfi5HYct+Nnx/10jONyHHYu2/54P68/38bng4/7
aqipqR35r//9bG+lwWRkPD4u1r9guooNTYZ0vesaBjQu3piwMWBjtttKi/X4
JhxDTRguFmw0XX4u/bk6ER98ZvTOubFhx++dUkU9QPIGceEZJhuiT3sa73DS
0OS3i/F4ew1Mnfw5HdnZKN1vd9t+fy1iq89HTpmycGVfY8GWSg7sk2ZfLedU
Y+qCUpsvq8OtvF2OZQUNOHhFUuovbYDiSN0veoNvMR966JDR+0YYF58pNGht
hyLIo9OkvBkR2nUJWbNduJ8/r2vl+RY2ue4Vsaf5KF1wiU1d3wp7QebhqLJ+
bK7lHVPltCF8+f3JOa4ATqJQ3+iP3mOdiUGfV/owrj80sPG0aUekDeHEWwrR
vRKX8bS3HatN9p2pqBpB5ha3rI7ADrTmdGemXBzDjWTN3O9XdaJ441+GrKVx
+D/9rvhsUieqjRgOYcWTsOK6BGcYdkGyrG7oekKEhvyazpTMLjg0ze/wGPmA
Xu2WDd/qdKPBImpqU8o0TEaENrjbjfMxUUO622cgl5prXZd1Y1Plmn3nAmeh
d6/TXD+Ah43M+vE/HSUQhzwcP9HFQ0awdcmzNXMIKo/YLNvTg5qURafY0TmI
00VxdsweBJYFy2dY8zhp73dgUdIDljXvE5+rCzCtng697szHLa2bEtbhRVSJ
WW0ruXzMds7PMXWlqF+nGPVb4mNusqT51IwUNRaXljSO9iLB/5jM6M0SHCTm
cZH5vSgYLjsQe1cGi6ylPUYLvfDK8/Bl+yzj6ksfzzjnPhR51eek7VyBmVFG
9uu0PsQwdG3DFlZQ5B5tbDPSh4Wl8nzLd/+gY0JryNa6H4vea3fGpMjxOswq
VzO+Hw/0yxNLLikQUikuWt/Xj6o3Opphe5Wo231PFfXVAEIF5/hOSiUsnx93
yI0YQAORRYl5KuRd8+Rf7BzAcW5+drqbGgk/oCn5wWwQ2jmLgQXVaqT+4Qee
BWMQqeZ2fpVm6sTscIE8YXwQ3ruGgph31MnRgG01HEcBVtwLh4VL6iTo9MsG
aYkA/WpcL4WHBrFVcJ9E6AwhzkO01pCjQarSnd6dujaEZYHlF3kWFEkWKrVP
zw+hYqD1kDyJIlPxQXGxfjRMvBju1ckU0Rhj5/8eQOP+KPyvpVDE7UizZeFP
NPynnyXI0yiib6gX0BZMY5MqnSN/QhFhEufRlnAa0Sa+1oo/KFI0IRZ23aLh
EqAwVjZRxM86Q3W7mMaL6Rdf17RQxHPrcFVRyX+/yyGIekcRcXFpTxOLhjxy
xEPJpQhDbxCrymmw7rYwlTyKOGs2NiW+oqFTlrpWNUKRrWOzhXmtNG5847a5
dowiJ2MnC1q4NMRVWhbRExSpCF9ePdNOo/H1r84qEUUaXffLbXk0wru841QS
ijCfeD7gC2iMnjL8rXaeIq4d2qUqmsaxwe6s6EWKDD5K3P2lkIb52MEalYwi
xm0l3pHjNJgB6m21KxSJoey18yZpaP79ciBaTpHeH/22ckU0Qi5fEUFJkbPN
n6fKxDQE0h3LKhVFwrPcA7fN0PgXcVeFIw==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.01, 2.5}, {0.11339023036240556`, 
        0.4989708488342397}}, "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {0, 0.11339023036240581`}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.11339023036240581`},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{
    FormBox[
     StyleBox[
     "\"Informativeness \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \
OverscriptBox[\\(\[Beta]\\), \\(^\\)]]\\)\"", 
      GrayLevel[0], StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Equilibrium T\"", 
      GrayLevel[0], StripOnInput -> False], TraditionalForm]},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->250,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{0.01, 2.5}, {0.11339023036240556`, 0.4989708488342397}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.901485838393863*^9, {3.901485870586755*^9, 3.901485894391542*^9}, 
   3.901486017136925*^9, 3.901486059502547*^9, 3.9014861167950373`*^9, 
   3.901549580299388*^9, 3.972601373075177*^9, 3.972652882347782*^9},
 CellLabel->
  "Out[251]=",ExpressionUUID->"55c8ab92-e038-43fb-b2a2-060dcfe86ff4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1"}], ",", 
     RowBox[{"\[Sigma]\[Beta]Mx", "=", "2.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1.25"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Mu]C", "=", 
      RowBox[{"-", ".5"}]}], ",", 
     RowBox[{"\[Mu]M", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Beta]E", "[", "\[Sigma]\[Beta]_", "]"}], ":=", 
     RowBox[{"\[Beta]", "/.", 
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "zB"}], " ", "\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "+", 
          RowBox[{"zG", " ", "\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "+", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"2", " ", "\[Kappa]", " ", 
           SuperscriptBox["\[Sigma]M", "2"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
             FractionBox[
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], ")"}], "2"], 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]\[Beta]", "2"]}]]}]], " ", 
           SqrtBox[
            FractionBox["2", "\[Pi]"]], " ", "\[Beta]", " ", "\[Kappa]", " ", 
           
           SuperscriptBox["\[Sigma]C", "2"], " ", "\[Sigma]\[Beta]"}], "+", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"], " ", 
           RowBox[{"Erf", "[", 
            FractionBox[
             RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}], "-", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"], " ", 
           RowBox[{"Erfc", "[", 
            FractionBox[
             RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}], "+", 
          RowBox[{"2", " ", "\[Kappa]", " ", 
           SuperscriptBox["\[Sigma]M", "2"], " ", 
           RowBox[{"Erfc", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"-", "\[Beta]"}], "+", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}]}], "==", "0"}],
         ",", 
        RowBox[{"{", 
         RowBox[{"\[Beta]", ",", "\[Mu]\[Beta]"}], "}"}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"pfn", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"CE2F", "[", 
         RowBox[{
         "\[Mu]\[Beta]", ",", "xp", ",", "\[Sigma]C", ",", "\[Sigma]M", ",", 
          "zG", ",", "zB", ",", "\[Kappa]", ",", "\[Mu]C", ",", "\[Mu]M", ",", 
          RowBox[{"\[Beta]E", "[", "xp", "]"}]}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"xp", ",", ".1", ",", "\[Sigma]\[Beta]Mx"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"CDat", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{"pfn", ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          
          RowBox[{"\"\<Informativeness \!\(\*SubscriptBox[\(\[Sigma]\), \
OverscriptBox[\(\[Beta]\), \(^\)]]\)\>\"", ",", "Black"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          
          RowBox[{"\"\<Brown Investors'\\nCertainty Equivalent\>\"", ",", 
           "Black"}], "]"}]}], "}"}]}], ",", 
      RowBox[{"ImageSize", "->", "285"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.901485929731882*^9, 3.901485983309428*^9}, 
   3.901549583469572*^9, {3.972653102171048*^9, 
   3.972653104333618*^9}},ExpressionUUID->"6db96167-0a3c-4ca1-b2d7-\
01d1514fefae"],

Cell[BoxData[
 RowBox[{"2.`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.`", " ", "inef1"}], "-", 
  RowBox[{"1.`", " ", "inef2"}]}]], "Print",
 CellChangeTimes->{
  3.901485934281413*^9, {3.901485967661631*^9, 3.901485983546899*^9}, 
   3.90154958369614*^9, 3.972601423464218*^9, 3.972652885440228*^9},
 CellLabel->
  "During evaluation of \
In[252]:=",ExpressionUUID->"1d069ac2-beb7-49c2-a507-b962d654aba8"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partd", 
   "\"Part specification \\!\\(\\*RowBox[{\\\"CDat\\\", \\\"\
\[LeftDoubleBracket]\\\", \\\"1\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
longer than depth of object.\"", 2, 252, 59, 30291901384776546373, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{3.972652885460122*^9},
 CellLabel->
  "During evaluation of \
In[252]:=",ExpressionUUID->"01c52faa-797d-4957-9379-c852eac1f4ec"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwd1nk4Vd/XAHDuMSVJSCVNKqWECsnQ2qaShErIVGkQIgn5RUo0ylChQSkq
GcqQJEO28KVM3XtNkch0ZQiX6xrj3ff96zyf5zlnn73X3nuttcbp3MFTND4+
vvX8fHy8p5T2uNuTx7mwWkwvU+MQFyf8aMps/JYLKsmBtCRiVd+CcempXMim
RRQvteRis8yg4AjbPLCVloucIL61QSw2ZHk+xKWHOWdacfGM1JoKj2cFkKIc
oyNiy8VdAyYbDeIxtGpprjI9xsVed7Z4XGVgeMspLUwl5pMWaW7lKwJDz9A6
0eNcHJHZt0puaxGIrko9UU78diA9NeZeEaRiHxmtE1zMctIqCT34BezbWHOC
p7nY1tx8xKeuGCS2PXbd6cbFo8r/jcUOFkPLkFxzOPFdce3JLyIlcN99ML2T
uLBagU9ctwQCHkREhJ7lYnnT2QWJr0tA1dxKoc6di/uM3yk2+JaC/hP2X2NP
Lg7euHbLTGQp+Hy40RFFLCfyWFU+tRQMc9L1fhOblYfs8GgrBSGRSuRznovf
G9kbCRn/B7Zvrux95MXF/vrzj2ssKwPjw6a42JuLpeWDTtpvLwNvm8sBgj5c
nMY/7nxtfxk0/3NL2kP8u6jDoyaoDDi9t/ZXEBtCXsDpvjIIieur/erLxWI6
Lo9i8svBslhfNNWPi5+ql3/nOnyDuu8f2wQDuDhyxemdx32/QeJMQfZ24hBB
wZeV4d/ALGSp9HHis/X6vi/wN9C0j3XNI9b1KZQzWVMBxYaOIc6Xubj1Q7bL
s64KEO0Vf5gayMXMp5a1wv8qIHXbelEmcVnIqI7X4kpIfpYjMkGcZrlVYs/u
SshYtTRZ/woXB3Lefhx+UwkVsxoBTOJVaq8oQ7cqMOlVethylaxfzsA9LbgK
nEa0m6aJRQQ6GpY+rYJAj5Zk2SAuHq5dlfK3qgpWFkWNWxEXXYi1eKhcDQ9X
qplUEH+w08rj31MNJaGrhVjESQZNa88erYaWT/IH+a+R9UstGUeR1eCnoxir
QXws6/6zPnY1mKUFcWOJLWO3Ch8WrQFjy6OaH4iNg+meWL4Gtv1mzq8iVj0k
bhh1qAZiQ7TOTBHzj97u082ugUYXNHMgmIu5zRstk6prQEaORj9N3Fdc/lmS
VQOhxfUa/sTM+4L3emS+gwE+V5hAnLAtaMc9v+/w4lNU3gBxyWtnwaDI77BL
8XL9P+KupWa1nknfIfT48tviIVy8YU72nMWP7/BbXTFfmbjhlG2tsBwdHkRY
m7sSOz/fnze3gQ7S5flqfsQTP1D8+HY6WDmpfbhOvMx0w7mefXRImpG49pzY
fhtHtNyfDnUrNR1riP+69bALb9KhXZNvWRNx4OvmHx8f0KE0bce5TuLnS78k
JqbS4e2S+EEuserBD2FxOXQIX664lO862Y/QN94xJXSQeFb1S4S4YzZM/8ZP
OnCfLtq1jNhLM0gxsIcOCbkiTauJKS9vCd9ROlyLLJPYSByV6jzuPke+r/bp
ViZe123bemo+A+6I6VmrE2evNPvPYQkDxn8dPK1NvNtG7+3htQxQKq6X1CN2
rtxwyUibAa5XfhjuI54QWH5cdw8DzKTeVZgT39olbqx+iAEfVZ4OHiJe5sev
suUoA4rF6RnWxCmZnMXr3RgQ0OK1yI5Yq79nRu4iA5o/pkk4Eleu+9kpHUze
f/cu7RixvWNNhVgEAxaVPO53Ih54+CVTIJYBcX1Py08SX2Z8eDSTyAB90Xb9
08Ti85OucN4zoGEywsGZOM4w9vRAIQO0gmuXnCFWCQzf31XBABun+vM8F+UE
qbU0MEDZCLvxbMH2Xl7XwYCKyjxBnts3naFVDTLg0C028MbzOmnXWzLFAPG5
u7K8/1FxZvR8ISbYJn6M5s0nqlEvJ0uSCaWsh5m8+a5bpB6XupIJXFlbD956
sk02Xn+5iQnVEQpVDrz4hiw/G6vBBJsQhUpb4obP4oce6DOBqRjsxouX8zi/
VqgZEz6+PPWOF88J1bHVwbZMyBUej/z/eLv+EfY/TcZzOCbD249lr34Oenkx
YdOLCt3dvHj/qql3DWTCwXxHYd7+aS0pLnC6wwSJcKMLvP2ttMh+aRvDhMu9
b4J4+29/J+nOwQQmiNxL26bCi++/cBv9PCawwvZdXkPse6V0SLecCf98T3nx
zpsn/9SNnXVMCOhxnpIgPil4Klt1kAkxwmMls+T8Ot58Yqo0zYSEFpbgGLH1
PHrnBpFaEA6J+NlHbLJAW3KVfC2cKWPq1xMbRngmy6rUQudwbd03Yt1FiUhG
pxY+ix2Z/sy7D4sXnVtgVQtKrvlCr4llVvRUTt+uhWtdXnIexBLP5U6Mx9SC
tZGCzVHieWsOTo28rAUza46iBfHMus8b+z7Xgnl4SqQqcYfSg+s/2LUwpMPv
ycsPLWlf5epma+HLUzGnZuJ61dms7/ProL26tL+c+KuaS0fZ+jqYtaLK44nT
dQCyj9TB9J9NCRbESYXeDRmn62Bqx0JrbV7+QSnuby/UwZbOLa/XE8cYLn76
MqwO/HLbFkyS/BZg2j9x70sdGDhclOHlR2P7h+89FOuhdMhEpYrkV/3Wqr2u
GvUgIM8MzyDWPkZrP2VQD57K8XeiiJVPui90cKiHjKJGazti6bMGZ/fdq4c1
Fr37u0h+b/cfWr9xsh5+cC4yO0k9ELm2c9hIsAHuCv+1KCVWvRWcd2JRA0y2
rfB/xasfUUvMnys2AN9q09oTxLLvwE/GtgGuvhZ52ErqzcHWiAqB/AZIvGEY
VkrqVSlSPdce0AiS5xV1Dvlzcf/uSzvnbjVCy0Vrf0Viyf2l1IroRngjMeI6
d4nUgyM2j2zeNZL6PGeXQvzv/NUv3381gvjxgNsz/+NijZd0qcJdP6AhhrH1
PqmvbwTPf3rC1wRmrImsYFKPNSz/bStY0AS1r9XG9hGXJdx+90u2CfasMWyV
ImZBQsJq9SbgtEYmJZB6r3Cp9m6iSxPMZmP5ggtcnDiofvw9swni7irVtZJ+
IbFxal7Fq2bw0Ljv0EX6Dw2FmyH9mc0Qlxs0GE9c5i01J4abYZd0rtJRYtYi
JY55UzPouSVn/iD9i4KpQ2v9gp9QULi9o5z0N4lF+H2770+IS2HQHroQJ4fY
TRq3gMDavlOTJ7m46rParV+HW8BWOdkqjXiU0fXhi1MLvNqeNuNEjKYMxe8E
tICSx1qXStJv/TQR/CKb0QJ12/6UP3Ii53vguoLOkl/gMyZTuJ70b5eUb7ID
u3+BWTfrwTw70g9l3b4pcK0NuHm1A3wWXKzUZa1To9cO+QGJV3M1ubhmeruu
RGcHRDLXp/9dzsVrHr948ehMFxT63R5ePTuGjXuvG19kdYPk4qZ3t1vH8N3d
HyYqQ3pg8X8gxM0dw0GKF+Y7C/fC+5xukenoMXx/mb+CX0ofGOu6he12H8N+
BdPX24wGoHDTSqN2gzG8sFvMOOy/vyAelqChJTeGi2WdJTNPDcFDY6VY82EO
luxPer7AZxhsl6kxk8s4+MB3/bzLe9jgaMCJEHzMwdNiy8aXyozAEpdw3XY3
Dr4ctuNUY8MIWH26YvBCj4PDoi410t+MAk1fbQtDioN9WwX9/7pyIL4hR1Wl
dxR/C6pG6pvGYLKhsiQBj+KU1FzRT5NjIP83+wb3/ig+uXRQ0DGfC48tXWRL
XEbx2/l7BCFsHDJ+bj9UrDuKHW1aFPbZTUDfxY1xh6VGcW9P7v8uLZ+EuX9N
z8IHRjBtNp/e1T8JnuHNBy6VjOBRK6EjXmlTsMCIL3Zd3Ag2nxdGbXafhgOe
Y0+iL43gnfqa71fqzEC7U7u80eERPP158331fzNwfz/bEm8fwfuKDHxv1vyD
hYubIwYlRrC34KvQmXuz4NHxcss4m42FX6GSpwfmoEgz66JiPRtHdV2dy5fg
Q5JKX0q+5bDxvUeCGvnn+dDWdbMb9OLYuCHi6WBjMx/y1KMNfQ1hY3rWAU1R
fX5k9+W89iYPNtaYTJE1S+BH+Y4Lv1nbsXFnkMyVdFEa0nh2tyx6LxvfLRLd
py5GQ76bintsiNXmZmXyF9DQ3QHWVjnikICetDIJGpJWWav30piNFS5+av0l
Q0NX7F1Ns/awsetZ211ia2kIF+9f+dOIjYet4v6d0aahMmuB4b36bDyzWSFA
/iwNFdxJ2ZeozcbWnY5xL9xpKFhReNCb+P2Th0Urz9HQyrH+XANil3nzBJd7
0VB39Lmadi2yPlZ/mJQfDV1aurd/FXFGfOZzgRAasroaPv1Sk41PLNEtYcXS
kNgO5YxKdTYurPHpPvmMhvzdnj94Tix7I024M46G4o1exF8gpnNWmbbF05De
+vO6csQ6TFp94xsayrmi6nNOjY1lwr6yvmbR0NUW+YEV29m4gmYpmlpJQ7IZ
Uiqxqmy8jYpO2FtNQ/V2MZvPEz+hGrT+1NCQrYmd3R5iNwEbt/VMGjLvZFpy
VNhYTMi+6vkPGsryv5VhQWw+72R4VDcNScb4Skkps3HdQm/JwDkaKo6/8K1w
M5mPRHaKHD+FdFrTUSzxawmufj6NQmtLbAcuEvsu8rswIUihG86r27cSL5EK
qPMSo5BJ4Um9pE1sbCsTEuO8jEINbje74hTZuE0uSvbAdgpVYwd21gY2rnm3
Y7JWjULLpp9wHhEX7PrZaKVBofTmswqBxI+OyUfb7yT/u/9n8V5ii1cZC88A
hdrKOevaFdi4aHO1wJV9FEr9zRaRJU4r8Ozk30+hgbX/m+AnfrpfujjEjEKZ
WlMyfevZ2O+c3ZU7Byh0G9Ha84hVs3ono60pdDCLmexI/EJLaOjtCQp1tL+W
Sl/HxuGVydUqpyj0ICpm7DFxgP3+t+9PU2ibRZvQdWKbwCiXTy4U0naPyLEj
liiW7yo5R6HOo0IH5xNf3QtNzf4UOlYm43lhLRt7NHfkOFymkO1hOZPjxPZu
N2J+B1Io+QH9kDmxZlj1IVYQhWYyjnA3Ew/T7WrYNykU/DrAr0eejY/b+JWI
RFFott7Ox5nYdLPFi0/RFGIx3e9aEWvMbrh85iGFqo7tbzMiFn3VqPH1CYUC
mOGa64k/DGmk3Iyn0NPgylzWGjaOKxa/ueMlhZb8mkpvJL4VzTrR84pCBW8U
O74SO2jHrNiTRKE1fs+mUomFbo5FCqVTKAOuzXgTDx+pdv+YQSFJfKDWmbhZ
6bXJ6fcUkhAzZ9kSpzMtBcqyKbR6c2+RHrHNyg8XrxdQaFps+15JYn12qKV6
IYXQoAhNmFip9MTWbkwhaasd49Or2ZjfVarfsIRC4VOZMSzilGwvR4EKEu8F
ySmFxFG3TLQ/VFLIlVazO5s40E5+6clqChl4e616S3yIn8kooVPo/DrTG0+I
d9Ulp11gUmju9B3p+8Qb3wSFrq2jUKiybdtt4hnTrUbBjRSal4Q3XSJmrZon
v72JQlK/HVK9iBkjv2c7mim0NTnujBtx4qPIT/qt5H7sW/rYgdi8a2gzrZtC
lnRbpiGxVk65yHsWhfRolzWBeN2d593H/5Dz3XTs507iCRXz51/6KfS7yr9R
hbiDtiHg/F8KKfbmqm4mrq6ftVkzRKG+1PIyBeIE/zTJoBEKffQ4mryS+K7Z
jSFVDoW+9g6NyRL7rnGs+j1G5sPvcGUJ8TGOenLkOIU8viYbSRPvK19wA01S
KF+vyXgRscaTbqfhKXI+HAdviROvdv8ML2YoxJ3tFxQjFkXRchaz5D6P1OF5
xBxJ98m5OTIeN/WjMPH/AfAAmSU=
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]], 
             Line[CompressedData["
1:eJwd1nk4Vd/XAHDuMSVJSCVNKqWECsnQ2qaShErIVGkQIgn5RUo0ylChQSkq
GcqQJEO28KVM3XtNkch0ZQiX6xrj3ff96zyf5zlnn73X3nuttcbp3MFTND4+
vvX8fHy8p5T2uNuTx7mwWkwvU+MQFyf8aMps/JYLKsmBtCRiVd+CcempXMim
RRQvteRis8yg4AjbPLCVloucIL61QSw2ZHk+xKWHOWdacfGM1JoKj2cFkKIc
oyNiy8VdAyYbDeIxtGpprjI9xsVed7Z4XGVgeMspLUwl5pMWaW7lKwJDz9A6
0eNcHJHZt0puaxGIrko9UU78diA9NeZeEaRiHxmtE1zMctIqCT34BezbWHOC
p7nY1tx8xKeuGCS2PXbd6cbFo8r/jcUOFkPLkFxzOPFdce3JLyIlcN99ML2T
uLBagU9ctwQCHkREhJ7lYnnT2QWJr0tA1dxKoc6di/uM3yk2+JaC/hP2X2NP
Lg7euHbLTGQp+Hy40RFFLCfyWFU+tRQMc9L1fhOblYfs8GgrBSGRSuRznovf
G9kbCRn/B7Zvrux95MXF/vrzj2ssKwPjw6a42JuLpeWDTtpvLwNvm8sBgj5c
nMY/7nxtfxk0/3NL2kP8u6jDoyaoDDi9t/ZXEBtCXsDpvjIIieur/erLxWI6
Lo9i8svBslhfNNWPi5+ql3/nOnyDuu8f2wQDuDhyxemdx32/QeJMQfZ24hBB
wZeV4d/ALGSp9HHis/X6vi/wN9C0j3XNI9b1KZQzWVMBxYaOIc6Xubj1Q7bL
s64KEO0Vf5gayMXMp5a1wv8qIHXbelEmcVnIqI7X4kpIfpYjMkGcZrlVYs/u
SshYtTRZ/woXB3Lefhx+UwkVsxoBTOJVaq8oQ7cqMOlVethylaxfzsA9LbgK
nEa0m6aJRQQ6GpY+rYJAj5Zk2SAuHq5dlfK3qgpWFkWNWxEXXYi1eKhcDQ9X
qplUEH+w08rj31MNJaGrhVjESQZNa88erYaWT/IH+a+R9UstGUeR1eCnoxir
QXws6/6zPnY1mKUFcWOJLWO3Ch8WrQFjy6OaH4iNg+meWL4Gtv1mzq8iVj0k
bhh1qAZiQ7TOTBHzj97u082ugUYXNHMgmIu5zRstk6prQEaORj9N3Fdc/lmS
VQOhxfUa/sTM+4L3emS+gwE+V5hAnLAtaMc9v+/w4lNU3gBxyWtnwaDI77BL
8XL9P+KupWa1nknfIfT48tviIVy8YU72nMWP7/BbXTFfmbjhlG2tsBwdHkRY
m7sSOz/fnze3gQ7S5flqfsQTP1D8+HY6WDmpfbhOvMx0w7mefXRImpG49pzY
fhtHtNyfDnUrNR1riP+69bALb9KhXZNvWRNx4OvmHx8f0KE0bce5TuLnS78k
JqbS4e2S+EEuserBD2FxOXQIX664lO862Y/QN94xJXSQeFb1S4S4YzZM/8ZP
OnCfLtq1jNhLM0gxsIcOCbkiTauJKS9vCd9ROlyLLJPYSByV6jzuPke+r/bp
ViZe123bemo+A+6I6VmrE2evNPvPYQkDxn8dPK1NvNtG7+3htQxQKq6X1CN2
rtxwyUibAa5XfhjuI54QWH5cdw8DzKTeVZgT39olbqx+iAEfVZ4OHiJe5sev
suUoA4rF6RnWxCmZnMXr3RgQ0OK1yI5Yq79nRu4iA5o/pkk4Eleu+9kpHUze
f/cu7RixvWNNhVgEAxaVPO53Ih54+CVTIJYBcX1Py08SX2Z8eDSTyAB90Xb9
08Ti85OucN4zoGEywsGZOM4w9vRAIQO0gmuXnCFWCQzf31XBABun+vM8F+UE
qbU0MEDZCLvxbMH2Xl7XwYCKyjxBnts3naFVDTLg0C028MbzOmnXWzLFAPG5
u7K8/1FxZvR8ISbYJn6M5s0nqlEvJ0uSCaWsh5m8+a5bpB6XupIJXFlbD956
sk02Xn+5iQnVEQpVDrz4hiw/G6vBBJsQhUpb4obP4oce6DOBqRjsxouX8zi/
VqgZEz6+PPWOF88J1bHVwbZMyBUej/z/eLv+EfY/TcZzOCbD249lr34Oenkx
YdOLCt3dvHj/qql3DWTCwXxHYd7+aS0pLnC6wwSJcKMLvP2ttMh+aRvDhMu9
b4J4+29/J+nOwQQmiNxL26bCi++/cBv9PCawwvZdXkPse6V0SLecCf98T3nx
zpsn/9SNnXVMCOhxnpIgPil4Klt1kAkxwmMls+T8Ot58Yqo0zYSEFpbgGLH1
PHrnBpFaEA6J+NlHbLJAW3KVfC2cKWPq1xMbRngmy6rUQudwbd03Yt1FiUhG
pxY+ix2Z/sy7D4sXnVtgVQtKrvlCr4llVvRUTt+uhWtdXnIexBLP5U6Mx9SC
tZGCzVHieWsOTo28rAUza46iBfHMus8b+z7Xgnl4SqQqcYfSg+s/2LUwpMPv
ycsPLWlf5epma+HLUzGnZuJ61dms7/ProL26tL+c+KuaS0fZ+jqYtaLK44nT
dQCyj9TB9J9NCRbESYXeDRmn62Bqx0JrbV7+QSnuby/UwZbOLa/XE8cYLn76
MqwO/HLbFkyS/BZg2j9x70sdGDhclOHlR2P7h+89FOuhdMhEpYrkV/3Wqr2u
GvUgIM8MzyDWPkZrP2VQD57K8XeiiJVPui90cKiHjKJGazti6bMGZ/fdq4c1
Fr37u0h+b/cfWr9xsh5+cC4yO0k9ELm2c9hIsAHuCv+1KCVWvRWcd2JRA0y2
rfB/xasfUUvMnys2AN9q09oTxLLvwE/GtgGuvhZ52ErqzcHWiAqB/AZIvGEY
VkrqVSlSPdce0AiS5xV1Dvlzcf/uSzvnbjVCy0Vrf0Viyf2l1IroRngjMeI6
d4nUgyM2j2zeNZL6PGeXQvzv/NUv3381gvjxgNsz/+NijZd0qcJdP6AhhrH1
PqmvbwTPf3rC1wRmrImsYFKPNSz/bStY0AS1r9XG9hGXJdx+90u2CfasMWyV
ImZBQsJq9SbgtEYmJZB6r3Cp9m6iSxPMZmP5ggtcnDiofvw9swni7irVtZJ+
IbFxal7Fq2bw0Ljv0EX6Dw2FmyH9mc0Qlxs0GE9c5i01J4abYZd0rtJRYtYi
JY55UzPouSVn/iD9i4KpQ2v9gp9QULi9o5z0N4lF+H2770+IS2HQHroQJ4fY
TRq3gMDavlOTJ7m46rParV+HW8BWOdkqjXiU0fXhi1MLvNqeNuNEjKYMxe8E
tICSx1qXStJv/TQR/CKb0QJ12/6UP3Ii53vguoLOkl/gMyZTuJ70b5eUb7ID
u3+BWTfrwTw70g9l3b4pcK0NuHm1A3wWXKzUZa1To9cO+QGJV3M1ubhmeruu
RGcHRDLXp/9dzsVrHr948ehMFxT63R5ePTuGjXuvG19kdYPk4qZ3t1vH8N3d
HyYqQ3pg8X8gxM0dw0GKF+Y7C/fC+5xukenoMXx/mb+CX0ofGOu6he12H8N+
BdPX24wGoHDTSqN2gzG8sFvMOOy/vyAelqChJTeGi2WdJTNPDcFDY6VY82EO
luxPer7AZxhsl6kxk8s4+MB3/bzLe9jgaMCJEHzMwdNiy8aXyozAEpdw3XY3
Dr4ctuNUY8MIWH26YvBCj4PDoi410t+MAk1fbQtDioN9WwX9/7pyIL4hR1Wl
dxR/C6pG6pvGYLKhsiQBj+KU1FzRT5NjIP83+wb3/ig+uXRQ0DGfC48tXWRL
XEbx2/l7BCFsHDJ+bj9UrDuKHW1aFPbZTUDfxY1xh6VGcW9P7v8uLZ+EuX9N
z8IHRjBtNp/e1T8JnuHNBy6VjOBRK6EjXmlTsMCIL3Zd3Ag2nxdGbXafhgOe
Y0+iL43gnfqa71fqzEC7U7u80eERPP158331fzNwfz/bEm8fwfuKDHxv1vyD
hYubIwYlRrC34KvQmXuz4NHxcss4m42FX6GSpwfmoEgz66JiPRtHdV2dy5fg
Q5JKX0q+5bDxvUeCGvnn+dDWdbMb9OLYuCHi6WBjMx/y1KMNfQ1hY3rWAU1R
fX5k9+W89iYPNtaYTJE1S+BH+Y4Lv1nbsXFnkMyVdFEa0nh2tyx6LxvfLRLd
py5GQ76bintsiNXmZmXyF9DQ3QHWVjnikICetDIJGpJWWav30piNFS5+av0l
Q0NX7F1Ns/awsetZ211ia2kIF+9f+dOIjYet4v6d0aahMmuB4b36bDyzWSFA
/iwNFdxJ2ZeozcbWnY5xL9xpKFhReNCb+P2Th0Urz9HQyrH+XANil3nzBJd7
0VB39Lmadi2yPlZ/mJQfDV1aurd/FXFGfOZzgRAasroaPv1Sk41PLNEtYcXS
kNgO5YxKdTYurPHpPvmMhvzdnj94Tix7I024M46G4o1exF8gpnNWmbbF05De
+vO6csQ6TFp94xsayrmi6nNOjY1lwr6yvmbR0NUW+YEV29m4gmYpmlpJQ7IZ
Uiqxqmy8jYpO2FtNQ/V2MZvPEz+hGrT+1NCQrYmd3R5iNwEbt/VMGjLvZFpy
VNhYTMi+6vkPGsryv5VhQWw+72R4VDcNScb4Skkps3HdQm/JwDkaKo6/8K1w
M5mPRHaKHD+FdFrTUSzxawmufj6NQmtLbAcuEvsu8rswIUihG86r27cSL5EK
qPMSo5BJ4Um9pE1sbCsTEuO8jEINbje74hTZuE0uSvbAdgpVYwd21gY2rnm3
Y7JWjULLpp9wHhEX7PrZaKVBofTmswqBxI+OyUfb7yT/u/9n8V5ii1cZC88A
hdrKOevaFdi4aHO1wJV9FEr9zRaRJU4r8Ozk30+hgbX/m+AnfrpfujjEjEKZ
WlMyfevZ2O+c3ZU7Byh0G9Ha84hVs3ono60pdDCLmexI/EJLaOjtCQp1tL+W
Sl/HxuGVydUqpyj0ICpm7DFxgP3+t+9PU2ibRZvQdWKbwCiXTy4U0naPyLEj
liiW7yo5R6HOo0IH5xNf3QtNzf4UOlYm43lhLRt7NHfkOFymkO1hOZPjxPZu
N2J+B1Io+QH9kDmxZlj1IVYQhWYyjnA3Ew/T7WrYNykU/DrAr0eejY/b+JWI
RFFott7Ox5nYdLPFi0/RFGIx3e9aEWvMbrh85iGFqo7tbzMiFn3VqPH1CYUC
mOGa64k/DGmk3Iyn0NPgylzWGjaOKxa/ueMlhZb8mkpvJL4VzTrR84pCBW8U
O74SO2jHrNiTRKE1fs+mUomFbo5FCqVTKAOuzXgTDx+pdv+YQSFJfKDWmbhZ
6bXJ6fcUkhAzZ9kSpzMtBcqyKbR6c2+RHrHNyg8XrxdQaFps+15JYn12qKV6
IYXQoAhNmFip9MTWbkwhaasd49Or2ZjfVarfsIRC4VOZMSzilGwvR4EKEu8F
ySmFxFG3TLQ/VFLIlVazO5s40E5+6clqChl4e616S3yIn8kooVPo/DrTG0+I
d9Ulp11gUmju9B3p+8Qb3wSFrq2jUKiybdtt4hnTrUbBjRSal4Q3XSJmrZon
v72JQlK/HVK9iBkjv2c7mim0NTnujBtx4qPIT/qt5H7sW/rYgdi8a2gzrZtC
lnRbpiGxVk65yHsWhfRolzWBeN2d593H/5Dz3XTs507iCRXz51/6KfS7yr9R
hbiDtiHg/F8KKfbmqm4mrq6ftVkzRKG+1PIyBeIE/zTJoBEKffQ4mryS+K7Z
jSFVDoW+9g6NyRL7rnGs+j1G5sPvcGUJ8TGOenLkOIU8viYbSRPvK19wA01S
KF+vyXgRscaTbqfhKXI+HAdviROvdv8ML2YoxJ3tFxQjFkXRchaz5D6P1OF5
xBxJ98m5OTIeN/WjMPH/AfAAmSU=
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.1, 
            2.5}, {-1.4075703093168581`, -1.0703198562254346`}}, 
           "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {0.10000000000000023`, -1.05158371994258}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.1, 
           2.5}, {-1.4075703093168581`, -1.0703198562254346`}}, 
          "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0.10000000000000023`, -1.05158371994258}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         Line[CompressedData["
1:eJwd1nk4Vd/XAHDuMSVJSCVNKqWECsnQ2qaShErIVGkQIgn5RUo0ylChQSkq
GcqQJEO28KVM3XtNkch0ZQiX6xrj3ff96zyf5zlnn73X3nuttcbp3MFTND4+
vvX8fHy8p5T2uNuTx7mwWkwvU+MQFyf8aMps/JYLKsmBtCRiVd+CcempXMim
RRQvteRis8yg4AjbPLCVloucIL61QSw2ZHk+xKWHOWdacfGM1JoKj2cFkKIc
oyNiy8VdAyYbDeIxtGpprjI9xsVed7Z4XGVgeMspLUwl5pMWaW7lKwJDz9A6
0eNcHJHZt0puaxGIrko9UU78diA9NeZeEaRiHxmtE1zMctIqCT34BezbWHOC
p7nY1tx8xKeuGCS2PXbd6cbFo8r/jcUOFkPLkFxzOPFdce3JLyIlcN99ML2T
uLBagU9ctwQCHkREhJ7lYnnT2QWJr0tA1dxKoc6di/uM3yk2+JaC/hP2X2NP
Lg7euHbLTGQp+Hy40RFFLCfyWFU+tRQMc9L1fhOblYfs8GgrBSGRSuRznovf
G9kbCRn/B7Zvrux95MXF/vrzj2ssKwPjw6a42JuLpeWDTtpvLwNvm8sBgj5c
nMY/7nxtfxk0/3NL2kP8u6jDoyaoDDi9t/ZXEBtCXsDpvjIIieur/erLxWI6
Lo9i8svBslhfNNWPi5+ql3/nOnyDuu8f2wQDuDhyxemdx32/QeJMQfZ24hBB
wZeV4d/ALGSp9HHis/X6vi/wN9C0j3XNI9b1KZQzWVMBxYaOIc6Xubj1Q7bL
s64KEO0Vf5gayMXMp5a1wv8qIHXbelEmcVnIqI7X4kpIfpYjMkGcZrlVYs/u
SshYtTRZ/woXB3Lefhx+UwkVsxoBTOJVaq8oQ7cqMOlVethylaxfzsA9LbgK
nEa0m6aJRQQ6GpY+rYJAj5Zk2SAuHq5dlfK3qgpWFkWNWxEXXYi1eKhcDQ9X
qplUEH+w08rj31MNJaGrhVjESQZNa88erYaWT/IH+a+R9UstGUeR1eCnoxir
QXws6/6zPnY1mKUFcWOJLWO3Ch8WrQFjy6OaH4iNg+meWL4Gtv1mzq8iVj0k
bhh1qAZiQ7TOTBHzj97u082ugUYXNHMgmIu5zRstk6prQEaORj9N3Fdc/lmS
VQOhxfUa/sTM+4L3emS+gwE+V5hAnLAtaMc9v+/w4lNU3gBxyWtnwaDI77BL
8XL9P+KupWa1nknfIfT48tviIVy8YU72nMWP7/BbXTFfmbjhlG2tsBwdHkRY
m7sSOz/fnze3gQ7S5flqfsQTP1D8+HY6WDmpfbhOvMx0w7mefXRImpG49pzY
fhtHtNyfDnUrNR1riP+69bALb9KhXZNvWRNx4OvmHx8f0KE0bce5TuLnS78k
JqbS4e2S+EEuserBD2FxOXQIX664lO862Y/QN94xJXSQeFb1S4S4YzZM/8ZP
OnCfLtq1jNhLM0gxsIcOCbkiTauJKS9vCd9ROlyLLJPYSByV6jzuPke+r/bp
ViZe123bemo+A+6I6VmrE2evNPvPYQkDxn8dPK1NvNtG7+3htQxQKq6X1CN2
rtxwyUibAa5XfhjuI54QWH5cdw8DzKTeVZgT39olbqx+iAEfVZ4OHiJe5sev
suUoA4rF6RnWxCmZnMXr3RgQ0OK1yI5Yq79nRu4iA5o/pkk4Eleu+9kpHUze
f/cu7RixvWNNhVgEAxaVPO53Ih54+CVTIJYBcX1Py08SX2Z8eDSTyAB90Xb9
08Ti85OucN4zoGEywsGZOM4w9vRAIQO0gmuXnCFWCQzf31XBABun+vM8F+UE
qbU0MEDZCLvxbMH2Xl7XwYCKyjxBnts3naFVDTLg0C028MbzOmnXWzLFAPG5
u7K8/1FxZvR8ISbYJn6M5s0nqlEvJ0uSCaWsh5m8+a5bpB6XupIJXFlbD956
sk02Xn+5iQnVEQpVDrz4hiw/G6vBBJsQhUpb4obP4oce6DOBqRjsxouX8zi/
VqgZEz6+PPWOF88J1bHVwbZMyBUej/z/eLv+EfY/TcZzOCbD249lr34Oenkx
YdOLCt3dvHj/qql3DWTCwXxHYd7+aS0pLnC6wwSJcKMLvP2ttMh+aRvDhMu9
b4J4+29/J+nOwQQmiNxL26bCi++/cBv9PCawwvZdXkPse6V0SLecCf98T3nx
zpsn/9SNnXVMCOhxnpIgPil4Klt1kAkxwmMls+T8Ot58Yqo0zYSEFpbgGLH1
PHrnBpFaEA6J+NlHbLJAW3KVfC2cKWPq1xMbRngmy6rUQudwbd03Yt1FiUhG
pxY+ix2Z/sy7D4sXnVtgVQtKrvlCr4llVvRUTt+uhWtdXnIexBLP5U6Mx9SC
tZGCzVHieWsOTo28rAUza46iBfHMus8b+z7Xgnl4SqQqcYfSg+s/2LUwpMPv
ycsPLWlf5epma+HLUzGnZuJ61dms7/ProL26tL+c+KuaS0fZ+jqYtaLK44nT
dQCyj9TB9J9NCRbESYXeDRmn62Bqx0JrbV7+QSnuby/UwZbOLa/XE8cYLn76
MqwO/HLbFkyS/BZg2j9x70sdGDhclOHlR2P7h+89FOuhdMhEpYrkV/3Wqr2u
GvUgIM8MzyDWPkZrP2VQD57K8XeiiJVPui90cKiHjKJGazti6bMGZ/fdq4c1
Fr37u0h+b/cfWr9xsh5+cC4yO0k9ELm2c9hIsAHuCv+1KCVWvRWcd2JRA0y2
rfB/xasfUUvMnys2AN9q09oTxLLvwE/GtgGuvhZ52ErqzcHWiAqB/AZIvGEY
VkrqVSlSPdce0AiS5xV1Dvlzcf/uSzvnbjVCy0Vrf0Viyf2l1IroRngjMeI6
d4nUgyM2j2zeNZL6PGeXQvzv/NUv3381gvjxgNsz/+NijZd0qcJdP6AhhrH1
PqmvbwTPf3rC1wRmrImsYFKPNSz/bStY0AS1r9XG9hGXJdx+90u2CfasMWyV
ImZBQsJq9SbgtEYmJZB6r3Cp9m6iSxPMZmP5ggtcnDiofvw9swni7irVtZJ+
IbFxal7Fq2bw0Ljv0EX6Dw2FmyH9mc0Qlxs0GE9c5i01J4abYZd0rtJRYtYi
JY55UzPouSVn/iD9i4KpQ2v9gp9QULi9o5z0N4lF+H2770+IS2HQHroQJ4fY
TRq3gMDavlOTJ7m46rParV+HW8BWOdkqjXiU0fXhi1MLvNqeNuNEjKYMxe8E
tICSx1qXStJv/TQR/CKb0QJ12/6UP3Ii53vguoLOkl/gMyZTuJ70b5eUb7ID
u3+BWTfrwTw70g9l3b4pcK0NuHm1A3wWXKzUZa1To9cO+QGJV3M1ubhmeruu
RGcHRDLXp/9dzsVrHr948ehMFxT63R5ePTuGjXuvG19kdYPk4qZ3t1vH8N3d
HyYqQ3pg8X8gxM0dw0GKF+Y7C/fC+5xukenoMXx/mb+CX0ofGOu6he12H8N+
BdPX24wGoHDTSqN2gzG8sFvMOOy/vyAelqChJTeGi2WdJTNPDcFDY6VY82EO
luxPer7AZxhsl6kxk8s4+MB3/bzLe9jgaMCJEHzMwdNiy8aXyozAEpdw3XY3
Dr4ctuNUY8MIWH26YvBCj4PDoi410t+MAk1fbQtDioN9WwX9/7pyIL4hR1Wl
dxR/C6pG6pvGYLKhsiQBj+KU1FzRT5NjIP83+wb3/ig+uXRQ0DGfC48tXWRL
XEbx2/l7BCFsHDJ+bj9UrDuKHW1aFPbZTUDfxY1xh6VGcW9P7v8uLZ+EuX9N
z8IHRjBtNp/e1T8JnuHNBy6VjOBRK6EjXmlTsMCIL3Zd3Ag2nxdGbXafhgOe
Y0+iL43gnfqa71fqzEC7U7u80eERPP158331fzNwfz/bEm8fwfuKDHxv1vyD
hYubIwYlRrC34KvQmXuz4NHxcss4m42FX6GSpwfmoEgz66JiPRtHdV2dy5fg
Q5JKX0q+5bDxvUeCGvnn+dDWdbMb9OLYuCHi6WBjMx/y1KMNfQ1hY3rWAU1R
fX5k9+W89iYPNtaYTJE1S+BH+Y4Lv1nbsXFnkMyVdFEa0nh2tyx6LxvfLRLd
py5GQ76bintsiNXmZmXyF9DQ3QHWVjnikICetDIJGpJWWav30piNFS5+av0l
Q0NX7F1Ns/awsetZ211ia2kIF+9f+dOIjYet4v6d0aahMmuB4b36bDyzWSFA
/iwNFdxJ2ZeozcbWnY5xL9xpKFhReNCb+P2Th0Urz9HQyrH+XANil3nzBJd7
0VB39Lmadi2yPlZ/mJQfDV1aurd/FXFGfOZzgRAasroaPv1Sk41PLNEtYcXS
kNgO5YxKdTYurPHpPvmMhvzdnj94Tix7I024M46G4o1exF8gpnNWmbbF05De
+vO6csQ6TFp94xsayrmi6nNOjY1lwr6yvmbR0NUW+YEV29m4gmYpmlpJQ7IZ
Uiqxqmy8jYpO2FtNQ/V2MZvPEz+hGrT+1NCQrYmd3R5iNwEbt/VMGjLvZFpy
VNhYTMi+6vkPGsryv5VhQWw+72R4VDcNScb4Skkps3HdQm/JwDkaKo6/8K1w
M5mPRHaKHD+FdFrTUSzxawmufj6NQmtLbAcuEvsu8rswIUihG86r27cSL5EK
qPMSo5BJ4Um9pE1sbCsTEuO8jEINbje74hTZuE0uSvbAdgpVYwd21gY2rnm3
Y7JWjULLpp9wHhEX7PrZaKVBofTmswqBxI+OyUfb7yT/u/9n8V5ii1cZC88A
hdrKOevaFdi4aHO1wJV9FEr9zRaRJU4r8Ozk30+hgbX/m+AnfrpfujjEjEKZ
WlMyfevZ2O+c3ZU7Byh0G9Ha84hVs3ono60pdDCLmexI/EJLaOjtCQp1tL+W
Sl/HxuGVydUqpyj0ICpm7DFxgP3+t+9PU2ibRZvQdWKbwCiXTy4U0naPyLEj
liiW7yo5R6HOo0IH5xNf3QtNzf4UOlYm43lhLRt7NHfkOFymkO1hOZPjxPZu
N2J+B1Io+QH9kDmxZlj1IVYQhWYyjnA3Ew/T7WrYNykU/DrAr0eejY/b+JWI
RFFott7Ox5nYdLPFi0/RFGIx3e9aEWvMbrh85iGFqo7tbzMiFn3VqPH1CYUC
mOGa64k/DGmk3Iyn0NPgylzWGjaOKxa/ueMlhZb8mkpvJL4VzTrR84pCBW8U
O74SO2jHrNiTRKE1fs+mUomFbo5FCqVTKAOuzXgTDx+pdv+YQSFJfKDWmbhZ
6bXJ6fcUkhAzZ9kSpzMtBcqyKbR6c2+RHrHNyg8XrxdQaFps+15JYn12qKV6
IYXQoAhNmFip9MTWbkwhaasd49Or2ZjfVarfsIRC4VOZMSzilGwvR4EKEu8F
ySmFxFG3TLQ/VFLIlVazO5s40E5+6clqChl4e616S3yIn8kooVPo/DrTG0+I
d9Ulp11gUmju9B3p+8Qb3wSFrq2jUKiybdtt4hnTrUbBjRSal4Q3XSJmrZon
v72JQlK/HVK9iBkjv2c7mim0NTnujBtx4qPIT/qt5H7sW/rYgdi8a2gzrZtC
lnRbpiGxVk65yHsWhfRolzWBeN2d593H/5Dz3XTs507iCRXz51/6KfS7yr9R
hbiDtiHg/F8KKfbmqm4mrq6ftVkzRKG+1PIyBeIE/zTJoBEKffQ4mryS+K7Z
jSFVDoW+9g6NyRL7rnGs+j1G5sPvcGUJ8TGOenLkOIU8viYbSRPvK19wA01S
KF+vyXgRscaTbqfhKXI+HAdviROvdv8ML2YoxJ3tFxQjFkXRchaz5D6P1OF5
xBxJ98m5OTIeN/WjMPH/AfAAmSU=
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.1, 
        2.5}, {-1.4075703093168581`, -1.0703198562254346`}}, 
       "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {0.10000000000000023`, -1.05158371994258}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000023`, -1.05158371994258},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{
    FormBox[
     StyleBox[
     "\"Informativeness \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \
OverscriptBox[\\(\[Beta]\\), \\(^\\)]]\\)\"", 
      GrayLevel[0], StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Brown Investors'\\nCertainty Equivalent\"", 
      GrayLevel[0], StripOnInput -> False], TraditionalForm]},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->285,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{0.1, 2.5}, {-1.4075703093168581`, -1.0703198562254346`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.901485934424342*^9, {3.901485967782243*^9, 3.901485983678748*^9}, 
   3.901549583833077*^9, 3.972601423574424*^9, 3.972652885583599*^9},
 CellLabel->
  "Out[252]=",ExpressionUUID->"c8293531-19b4-457b-acde-350edca67811"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1"}], ",", 
     RowBox[{"\[Sigma]\[Beta]Mx", "=", "2.5"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1.25"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Mu]C", "=", 
      RowBox[{"-", ".5"}]}], ",", 
     RowBox[{"\[Mu]M", "=", "1"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Beta]E", "[", "\[Sigma]\[Beta]_", "]"}], ":=", 
     RowBox[{"\[Beta]", "/.", 
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "zB"}], " ", "\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "+", 
          RowBox[{"zG", " ", "\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "+", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"]}], "-", 
          RowBox[{"2", " ", "\[Kappa]", " ", 
           SuperscriptBox["\[Sigma]M", "2"]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", 
             FractionBox[
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], ")"}], "2"], 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]\[Beta]", "2"]}]]}]], " ", 
           SqrtBox[
            FractionBox["2", "\[Pi]"]], " ", "\[Beta]", " ", "\[Kappa]", " ", 
           
           SuperscriptBox["\[Sigma]C", "2"], " ", "\[Sigma]\[Beta]"}], "+", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"], " ", 
           RowBox[{"Erf", "[", 
            FractionBox[
             RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}], "-", 
          RowBox[{"\[Beta]", " ", "\[Kappa]", " ", "\[Mu]\[Beta]", " ", 
           SuperscriptBox["\[Sigma]C", "2"], " ", 
           RowBox[{"Erfc", "[", 
            FractionBox[
             RowBox[{"\[Beta]", "-", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}], "+", 
          RowBox[{"2", " ", "\[Kappa]", " ", 
           SuperscriptBox["\[Sigma]M", "2"], " ", 
           RowBox[{"Erfc", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"-", "\[Beta]"}], "+", "\[Mu]\[Beta]"}], 
             RowBox[{
              SqrtBox["2"], " ", "\[Sigma]\[Beta]"}]], "]"}]}]}], "==", "0"}],
         ",", 
        RowBox[{"{", 
         RowBox[{"\[Beta]", ",", "\[Mu]\[Beta]"}], "}"}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"pfn", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"CEG2F", "[", 
         RowBox[{
         "\[Mu]\[Beta]", ",", "xp", ",", "\[Sigma]C", ",", "\[Sigma]M", ",", 
          "zG", ",", "zB", ",", "\[Kappa]", ",", "\[Mu]C", ",", "\[Mu]M", ",", 
          RowBox[{"\[Beta]E", "[", "xp", "]"}]}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"xp", ",", ".1", ",", "\[Sigma]\[Beta]Mx"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"CDat", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{"pfn", ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          
          RowBox[{"\"\<Informativeness \!\(\*SubscriptBox[\(\[Sigma]\), \
OverscriptBox[\(\[Beta]\), \(^\)]]\)\>\"", ",", "Black"}], "]"}], ",", 
         RowBox[{"Style", "[", 
          
          RowBox[{"\"\<Green Investors'\\nCertainty Equivalent\>\"", ",", 
           "Black"}], "]"}]}], "}"}]}], ",", 
      RowBox[{"ImageSize", "->", "285"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.901485993689103*^9, 3.9014860036372137`*^9}, {
   3.901486484275484*^9, 3.901486524409823*^9}, 3.901549587755522*^9, 
   3.972601438879479*^9, {3.9726530945185633`*^9, 
   3.972653097537608*^9}},ExpressionUUID->"a41a5194-e62a-4d66-b875-\
7142daf0c942"],

Cell[BoxData["0.18954970545535038`"], "Print",
 CellChangeTimes->{
  3.901486003886578*^9, {3.9014864919307327`*^9, 3.901486524660022*^9}, 
   3.901549587990351*^9, {3.972601430853052*^9, 3.972601439372328*^9}, 
   3.9726528874230957`*^9},
 CellLabel->
  "During evaluation of \
In[253]:=",ExpressionUUID->"e403b586-6f0e-4668-9868-d5f49dc982b7"],

Cell[BoxData[
 TemplateBox[{
  "Part", "partd", 
   "\"Part specification \\!\\(\\*RowBox[{\\\"CDat\\\", \\\"\
\[LeftDoubleBracket]\\\", \\\"2\\\", \\\"\[RightDoubleBracket]\\\"}]\\) is \
longer than depth of object.\"", 2, 253, 60, 30291901384776546373, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{3.972652887424109*^9},
 CellLabel->
  "During evaluation of \
In[253]:=",ExpressionUUID->"98bf6afd-e546-4550-bfa2-234818f6f5ce"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], 
         CapForm["Butt"], LineBox[CompressedData["
1:eJwd2Hk8VdsXAHDuQaZKlIqL8CqlktkrWYcSkbHJK9FEVDSoSCilKGQISUpE
pJIpDaYTDV5FKplSUUh5JZE7nHOv3zq/v+7n+zmfz9777L32Wutc7W173X04
EhISlpISEuyvylLe7oyLD6BxwPDPCjcNKqe9o6Tt3wfgo7Bz6m9XDWrx4Sre
VOEDuG03zy4L7VwSeTJh40PwfGj1VeCiQcXMVbwUpV4J7iHKU4qdNShGRft5
4OUqcHZKk5m1WoPq/c9Bb3l2LbTu6FozyU6D2uji8vtQSx0klM711F2mQWWa
Pns1tvlf0Fp+RJihh/MbRZonhbwCi4AzL5NVNahw0TkPm4dvwDVslfFXaQ2q
5+jQbD3BOzjeJdP1eZRL5Uvvv58h0QEjzIbqkT4udf1G1CaBfRfsk6TO17Ry
KeeyM9FSJz6BnG/sdKqBSy3o3WDZZN0DWiFnwsOruFQTbbxM6ctnmPCju0Kq
mEtpX7x6Nd2vFzI9fJK5eVzK/tsp++D+PqhKlp809RKXiltZzn8R9RWcOAm/
+hK5VOS8IIWdE77BHNXiV7IxXCp55tE5IYXfoc3be870Y1wqpIo+9cn2P7Bf
l542ephLTe5TtI9/8gOSJ3x3+m8vl6pT26lc4jME14yXDXT7cSnlwYKsiYd+
Qfu+oO6WbVzK7ZXNw3C7YdB8faXinSeXohVn8mao/oaaCr2Y8A1cKjze3Ket
9Tc4rLm0WODOpeJTQtua80dguUOuYrIzlzr8Ufroj12jwHPpvzngwKX+jWwk
Tef/Ab8FJ4Yf2HGpwpsP5O8L/sCy7u8fK1ZwqR0zfkp7VY5B+pW8SCcbLmUY
Nngmr2YM2kPX9CxHiz8NTPzxaAwGRoR2S9Dp+V+mhTWMQauZ0fy56EazjtkZ
78Ygxl3HRhJttu6xbevQGOxQU6itsOZSsskZp5z/4sHSIvm+OehbCnbSEM+D
QxMqstVJLvVpS6NpcCIPOjTr3quglSvW+N45z4O6ZJKriA7esuWZVgYPFugl
FjPApWzuHjkjkc8Ds3mb5nxEt3vdmlhH8UBuvMA2By1dOkXVdpQHp1y8HQ3Q
FhPSV4bzePDkUpKbHnqXp2bwXSEP5CuUvbTRzTL67bMl+eDRxpxRQWduWpEh
M4kPzevcFvKtuJSRdLBmw1w+xov4ah3ay6NrjuMmPrS1HzPxRGc2ze119OLD
/tzuPevRnSuCsldv5YP30yuFrugNhvJc55182LrWwMwW7SpvMcUtCH0iOn4R
2rrqPL0+lg8S32wsOei/Zjk2b6vkww3LNedvL+NS29LS4rfX8CHX+NyhAvRV
xc8OOx7xYZe/7OZraK4g5InPMz48r6tYehE97c31h35v+dAV1m1+Ci0TxckL
HOSD4WjSfC/0t68PjoSqC8DduvS3Ctrm1zTdKk0BqIZdUZuMzuDvfynSFkC4
arK9PNpBbr5WpJ4APuw9WyGBvjU/43G0qQBevszs/GHJpfYFhE5OdREAJTaw
+Rc99ntJ3p2TArjtB6ej0M50mvPwaQFk9BTsOY7OJ0Z4RmcFMPOfYY8wtMfU
mw4ViQJYr6u2/CD6gan6r6rLAug0yN+8Ax0WQi95fk8Aaw+eK7RFc8SVzb2D
ArjZFpqhiPad+0Fm6KcA/o5IDJJDP3cVWwqGBaCem+Umg066Rt6YyBdAudZ1
rgR61qonkWZSQiByTX+OLOVSVilNRjFcIRzYsyeiC51TPeSXrCUEC9f06x1o
ma9KWZk66E233raiG/9eo1Cih46OsXyN9vzU9qXDRAgfzvy2f4oOnd+Tou8k
hC3daY4l6I9rOC9MXYXQuPvRoyK0TbiuJLlGCC0RdZa30HLNPgFr/xHCrX+X
W+ej0w99tw33EQK/XjfqMrqCGhlrChfC9y6vX2fRI+tl/jlQJIQep48b/dFV
+4uXBpQIoZ+3O2gn+nTcRk2/ciE0zwlP9EHPqCv6svmhEKBmdvtW9n0Xbghc
9VQI9nv3X96IPksUnJz1UQiyVWLxavRaTXdf9R4hLNCw8XZEa/zN2Kv24n7F
8epXoYsDXScpfheC6/zyjJXo1g5+Ou+PEGrC1oWTaO3iVUVNE2moViRVTdHf
n48k/qtEQ6CPVrUxurzvctBjFRpSpL39jNAr1X9bPJxJQ3KW8IUBes/pjPq8
2TT41Z58Nh9tlr3i+lU9GtTf2ybNQ49X/oy5pE/DIUtvbz108rCNc5IhDVKr
zsvOQd/3HGwPW0bD6ifd57TRJ4JTK4NJGuxWLzs6C+2YDFcOLKdhKmdgtxZ7
Ps/Ob/dbRUOAn+5GDbSUseXPNetoECsp75qJdpGLJ/QDaHiwtHG9Mtqowu6N
7z4aPguUDk9Bq27nZOcE0ZBX4JqhxI5XFWylFkqDQV/18CT2ffZtOyIXTUOs
+pwuBbSrhoa97VkaNK9p6bI2ed6mGhlPg9w8ub3yaFrXqZx/ngb/hdenybHn
02Y+9PUqDS6DHy7LoAOjflfr5tLALF2oyNrN8Hacdz4N2ke2HJNmzztWZ37b
bRo8ru85KIVmzD/wlUtoGIy1GSPQ3b0XnjmX0zBqPxbGOt9qos/ThzS8XzSc
zmHnG3xmzKmhQWeV6SLWgeknOFaPaKjScGuQZM/jNy/r7jMaZryVU2CtllUa
OPychnnZ18ok0CLHgGULm2iYLzV5K+vHeZ87c1to6Nm89vn4Ei5V4H75Rncb
DTXL9E+zjh3fEMJ9T0NrVONK1oG3lO08PtKw+/rfiqzd/2mcltJDg+W0wFYx
2kwmpvdVLw3hy/3zWKuV2ZQpDNDwIWfeEdZib1Gk3SANkbm33Vj3KN53PfmT
BtkHI4tYP35wQKt2mIYYV6ES6wLfhT+Fo3g+nbU8ETpOZaDKjE/D9Kc2X1jv
o3JiD9A05EZGvmW9NmDzxiIxDbpHQxtYm6vNmPddkgG+1oI61mrP3vBmSzMg
+SGFYi0Oin+6VZaBOM2yetafZ9mnXlZgwMv11AvWTxs5OzomMVDyQa6ddWFo
tdE0ZQYMDOEb6/i5IZJu0xgQleuO/389LUbNcTMYKHpzdya7/rWRP640qDNg
PzJiwdpiUUGAlBYDdse6PFlz32+zJHUYSPkYcIq1RIyGQthsBpJCrpey/mLS
3nFPjwH58qhe1k97kgtG9Bmw5smos/tfeM4p2MCAge/5+utZn1squ3K3EQNz
9IdTWR8YqJuab8rA6b51naz/trEo1bRkwDBhbB97/npK9yfqAr5/bEw16xkf
zf3n2jAA0uqT2PgZO2I+a7E9Pl9kWcm6z+7eURNHBiZYNkxn469lmnmbhTMD
aSdcQliXlpids17LwMB+B1s2frOPVXyz3cCA8qHKEtaJTma2DhsZmOGro8PG
f+A3U8Z9CwMPH72cxN6P+dqmu3bsYeCgauD0CeiZQ+VP/PYy8MTG/xpr2WoT
7YADDOwpcTGWRfd7mLQfCmHgFK/di72POYnGK6OjGPAIvdfL3t8kr7Ls2GgG
+iZ/TVBEH19gLEo4y8AdLZ7VRLRXg1F5eiIDbtZlBWw+UJMw0inMZOBl6KFC
Nn/INZWEF2VhPLw9cZDNL/xLhh2lOQyMUz42Kmx+NTdMrCxgQKv7+repbL7b
u1j8spyB2PIhnxlo+U+LOodeMrB/u+9UNr8JbhWZjr5igM6eq87mv4HQRUn8
NwxIuBfM1kE/VV1kL9nBgEzAZ9u/2PzovLBCuQ/301q5jM2ndLV+sqmIAUu/
v4DNz1KaVR2hEiKYSu3LZPP3pIjV2hQhAoteObEJepZVQLGDvAjm26k3maNt
a4qavKeL4PKq6Oxl6IQaQ4WzhiIwiRtQcWDrm2ad+ysTEbjFzL7L1pecCPeM
qRYiSGxL2ujE1geroHlZViIo4f8qcUV31JTblTuKwOljSvIGtG6tedRHHxFo
5zXO9EUv0Gp4oesvgrEATRFb/8yOeaj47xFB86bjvWx9tIcjOSMHRHBbcl9t
ADqg9iEle1wEX5435B1C36tdJjLKEEFtXLHRabY+UMsPRzeJIMKxDArRW6wv
OqS+FkFS7tcQtl4frPupea0Fx/tn/122nl95fPFZTacIFrhGWJShfzUMzRjr
FwGT6upbhU57falyx7gI/rzw8X7F5t/PIxI2i8Xw3OV2JY8dTzo3lkkSYz4K
q3bD/uRn8AlFOkUMDlZFd9ai/b5viRdcEIOx983cDejNrzQSxi6L4cxRiQub
0SsvXkj+dUMM1vX9mf7omQtjL/Y+EsORkjkLTqBr1h7IfzkshhuH96y+i56Q
S9Znuo2D89RaQ13s51J6j49XKkmQKkO+zxZj/5mULm1WuV+CBNN5JY7YD7cm
ZP5s65QgB3b4DaViP95c5mYhbyNJJhbTcf3Yz5sJCtWccyTJPoeoo7OWYz6J
VD12R55Dmux0btqJ3xeM/pwwnT0cUji45ORxW+yHv3hduRrAIS+YLU6IQpdm
XKA093LISReH0mPQ/nJy0uoHOOTYKJWXiG7tH4xXCeGQicaeuVfRxdklWVJR
HLL9r34jCr19+rL6/kscMjOt5bgIXdN0qG/HZQ6pW7GdlFyJ9+100YQvVzhk
bKi3SArdPKq1+lM2h7R3SNqriLZ8w3nXls8hlxyJM1FHq8Y39DeUccht69dZ
WaCfc9bK33zBIX12frLchzYiUnNWNXJIToLdzyB0BtG6ZKCJQ66evCQzGL1b
ymP37Dcc8sf2Oz8i0Ioyni+z2jnknciDvvEr2X5ix7mUPg756rzxrRvolskH
lSPGcT294sBP7HqU7hZyJQlyYcTlws/oPKUxm0oOQfbw3T73oQ9PCQniSxNk
lMlP2//Q01XCWg4oEuSF/Qkf+OiNqlFpO2cSZFroOscp+L33iZui5mZMkKH7
9GQB3XTbXPDWhCDHz1snWaOrrN63rTcjyId0guoKdPoWnVTPvwlSxvPRtFVo
19ziyX5AkH9G5va7oyn9RqljjgT53S/lpQ+6qGrfF0kngmztKp3uh850mloX
5YzrU+v02oUO2bvp2Fk3gvQXmPcEoheXfROkbiDIrDu9d4PRV5fIDN3aTpBd
StmZMehzL240GvgQ5G5z6fyz6DBPp1ulvgQ57+nK23Foj4gU//v+BFkZsOF2
IlqpTqe3fi9B3vfdcTQdfXwVdHQeJcgJ9h9W56MDOz/f2xxOkPZ6nSo30J67
T6d1RxCks9PZ1kK0RXzjmv5IguxXEDoXoX81b2oajibIIdNXCnfRWz1C6mVT
CHLWC5WyR+jV+q5X76cS5Pqr8Vvq0WbiueF+F3D/b4bIPkHL57aZNWQQpMrJ
FLsGdPmQWWF0NkHmpZ440YS+Ujcp2vwaQdrsmk00o2NS+7d/zSVI7d8aEa/R
m5emadgVEGTIGc72FrRM9J9EmTsEGeC7dKCDXd8/jQEVxQTpt2bh0vfozgV5
Dr6lBLlYeWNMF/rOm7VST+8SpNbT9VM+sfulWR58qoogN/Qe//AFbTMcu9a0
hiCN5v+Q7EMveLzdsK+WIIVyobP60ZK7VAZX1BPksTsDjgPs/wV3D3hJPSfI
sfbaTf+hU2Iclpa/IMhw7TbXH+iITTozdjQS5NvwP/ATvUbyzev6ZoLc2bdE
8RfaquVGUdAbgiwv2fSNtV5+ZKxuC46nEkwNo5nVhrYn23B+yyTPEXS/lpyO
cQdBnu06oz2Kfv27W/y5kyCL6vd1s76ennjf5iNBnlwqchxDu/QO6XP6CDKS
rOrgo5fceyZb2k+QDw6/CRCg/zqb1bd1gCBNv9fQrPkGLlmPBglSvXaSNI3+
zJkbtv8HQcYs33OcdeM7sYf2EEFaO6b8YZ1ztEg58jdBDjhZNDLoOOfTQ4tH
CfLcqSIDEfqwttfL7j8EKfHwSyzrLaOmNxJ5BPloyrse1o7PJp4mBQSZU3HM
UMzGS0bftl9CfP6uO5T1rIBquMoQZELWn2rW8mQq11WM+2lXKWQ9qhwgGB8n
yNvSBobj6P8BiC9PPQ==
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    StyleBox[
     DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
       Slot["HighlightElements"], 
       Slot["LayoutOptions"], 
       Slot["Meta"], 
       Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
           Annotation[{
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]], 
             Line[CompressedData["
1:eJwd2Hk8VdsXAHDuQaZKlIqL8CqlktkrWYcSkbHJK9FEVDSoSCilKGQISUpE
pJIpDaYTDV5FKplSUUh5JZE7nHOv3zq/v+7n+zmfz9777L32Wutc7W173X04
EhISlpISEuyvylLe7oyLD6BxwPDPCjcNKqe9o6Tt3wfgo7Bz6m9XDWrx4Sre
VOEDuG03zy4L7VwSeTJh40PwfGj1VeCiQcXMVbwUpV4J7iHKU4qdNShGRft5
4OUqcHZKk5m1WoPq/c9Bb3l2LbTu6FozyU6D2uji8vtQSx0klM711F2mQWWa
Pns1tvlf0Fp+RJihh/MbRZonhbwCi4AzL5NVNahw0TkPm4dvwDVslfFXaQ2q
5+jQbD3BOzjeJdP1eZRL5Uvvv58h0QEjzIbqkT4udf1G1CaBfRfsk6TO17Ry
KeeyM9FSJz6BnG/sdKqBSy3o3WDZZN0DWiFnwsOruFQTbbxM6ctnmPCju0Kq
mEtpX7x6Nd2vFzI9fJK5eVzK/tsp++D+PqhKlp809RKXiltZzn8R9RWcOAm/
+hK5VOS8IIWdE77BHNXiV7IxXCp55tE5IYXfoc3be870Y1wqpIo+9cn2P7Bf
l542ephLTe5TtI9/8gOSJ3x3+m8vl6pT26lc4jME14yXDXT7cSnlwYKsiYd+
Qfu+oO6WbVzK7ZXNw3C7YdB8faXinSeXohVn8mao/oaaCr2Y8A1cKjze3Ket
9Tc4rLm0WODOpeJTQtua80dguUOuYrIzlzr8Ufroj12jwHPpvzngwKX+jWwk
Tef/Ab8FJ4Yf2HGpwpsP5O8L/sCy7u8fK1ZwqR0zfkp7VY5B+pW8SCcbLmUY
Nngmr2YM2kPX9CxHiz8NTPzxaAwGRoR2S9Dp+V+mhTWMQauZ0fy56EazjtkZ
78Ygxl3HRhJttu6xbevQGOxQU6itsOZSsskZp5z/4sHSIvm+OehbCnbSEM+D
QxMqstVJLvVpS6NpcCIPOjTr3quglSvW+N45z4O6ZJKriA7esuWZVgYPFugl
FjPApWzuHjkjkc8Ds3mb5nxEt3vdmlhH8UBuvMA2By1dOkXVdpQHp1y8HQ3Q
FhPSV4bzePDkUpKbHnqXp2bwXSEP5CuUvbTRzTL67bMl+eDRxpxRQWduWpEh
M4kPzevcFvKtuJSRdLBmw1w+xov4ah3ay6NrjuMmPrS1HzPxRGc2ze119OLD
/tzuPevRnSuCsldv5YP30yuFrugNhvJc55182LrWwMwW7SpvMcUtCH0iOn4R
2rrqPL0+lg8S32wsOei/Zjk2b6vkww3LNedvL+NS29LS4rfX8CHX+NyhAvRV
xc8OOx7xYZe/7OZraK4g5InPMz48r6tYehE97c31h35v+dAV1m1+Ci0TxckL
HOSD4WjSfC/0t68PjoSqC8DduvS3Ctrm1zTdKk0BqIZdUZuMzuDvfynSFkC4
arK9PNpBbr5WpJ4APuw9WyGBvjU/43G0qQBevszs/GHJpfYFhE5OdREAJTaw
+Rc99ntJ3p2TArjtB6ej0M50mvPwaQFk9BTsOY7OJ0Z4RmcFMPOfYY8wtMfU
mw4ViQJYr6u2/CD6gan6r6rLAug0yN+8Ax0WQi95fk8Aaw+eK7RFc8SVzb2D
ArjZFpqhiPad+0Fm6KcA/o5IDJJDP3cVWwqGBaCem+Umg066Rt6YyBdAudZ1
rgR61qonkWZSQiByTX+OLOVSVilNRjFcIRzYsyeiC51TPeSXrCUEC9f06x1o
ma9KWZk66E233raiG/9eo1Cih46OsXyN9vzU9qXDRAgfzvy2f4oOnd+Tou8k
hC3daY4l6I9rOC9MXYXQuPvRoyK0TbiuJLlGCC0RdZa30HLNPgFr/xHCrX+X
W+ej0w99tw33EQK/XjfqMrqCGhlrChfC9y6vX2fRI+tl/jlQJIQep48b/dFV
+4uXBpQIoZ+3O2gn+nTcRk2/ciE0zwlP9EHPqCv6svmhEKBmdvtW9n0Xbghc
9VQI9nv3X96IPksUnJz1UQiyVWLxavRaTXdf9R4hLNCw8XZEa/zN2Kv24n7F
8epXoYsDXScpfheC6/zyjJXo1g5+Ou+PEGrC1oWTaO3iVUVNE2moViRVTdHf
n48k/qtEQ6CPVrUxurzvctBjFRpSpL39jNAr1X9bPJxJQ3KW8IUBes/pjPq8
2TT41Z58Nh9tlr3i+lU9GtTf2ybNQ49X/oy5pE/DIUtvbz108rCNc5IhDVKr
zsvOQd/3HGwPW0bD6ifd57TRJ4JTK4NJGuxWLzs6C+2YDFcOLKdhKmdgtxZ7
Ps/Ob/dbRUOAn+5GDbSUseXPNetoECsp75qJdpGLJ/QDaHiwtHG9Mtqowu6N
7z4aPguUDk9Bq27nZOcE0ZBX4JqhxI5XFWylFkqDQV/18CT2ffZtOyIXTUOs
+pwuBbSrhoa97VkaNK9p6bI2ed6mGhlPg9w8ub3yaFrXqZx/ngb/hdenybHn
02Y+9PUqDS6DHy7LoAOjflfr5tLALF2oyNrN8Hacdz4N2ke2HJNmzztWZ37b
bRo8ru85KIVmzD/wlUtoGIy1GSPQ3b0XnjmX0zBqPxbGOt9qos/ThzS8XzSc
zmHnG3xmzKmhQWeV6SLWgeknOFaPaKjScGuQZM/jNy/r7jMaZryVU2CtllUa
OPychnnZ18ok0CLHgGULm2iYLzV5K+vHeZ87c1to6Nm89vn4Ei5V4H75Rncb
DTXL9E+zjh3fEMJ9T0NrVONK1oG3lO08PtKw+/rfiqzd/2mcltJDg+W0wFYx
2kwmpvdVLw3hy/3zWKuV2ZQpDNDwIWfeEdZib1Gk3SANkbm33Vj3KN53PfmT
BtkHI4tYP35wQKt2mIYYV6ES6wLfhT+Fo3g+nbU8ETpOZaDKjE/D9Kc2X1jv
o3JiD9A05EZGvmW9NmDzxiIxDbpHQxtYm6vNmPddkgG+1oI61mrP3vBmSzMg
+SGFYi0Oin+6VZaBOM2yetafZ9mnXlZgwMv11AvWTxs5OzomMVDyQa6ddWFo
tdE0ZQYMDOEb6/i5IZJu0xgQleuO/389LUbNcTMYKHpzdya7/rWRP640qDNg
PzJiwdpiUUGAlBYDdse6PFlz32+zJHUYSPkYcIq1RIyGQthsBpJCrpey/mLS
3nFPjwH58qhe1k97kgtG9Bmw5smos/tfeM4p2MCAge/5+utZn1squ3K3EQNz
9IdTWR8YqJuab8rA6b51naz/trEo1bRkwDBhbB97/npK9yfqAr5/bEw16xkf
zf3n2jAA0uqT2PgZO2I+a7E9Pl9kWcm6z+7eURNHBiZYNkxn469lmnmbhTMD
aSdcQliXlpids17LwMB+B1s2frOPVXyz3cCA8qHKEtaJTma2DhsZmOGro8PG
f+A3U8Z9CwMPH72cxN6P+dqmu3bsYeCgauD0CeiZQ+VP/PYy8MTG/xpr2WoT
7YADDOwpcTGWRfd7mLQfCmHgFK/di72POYnGK6OjGPAIvdfL3t8kr7Ls2GgG
+iZ/TVBEH19gLEo4y8AdLZ7VRLRXg1F5eiIDbtZlBWw+UJMw0inMZOBl6KFC
Nn/INZWEF2VhPLw9cZDNL/xLhh2lOQyMUz42Kmx+NTdMrCxgQKv7+repbL7b
u1j8spyB2PIhnxlo+U+LOodeMrB/u+9UNr8JbhWZjr5igM6eq87mv4HQRUn8
NwxIuBfM1kE/VV1kL9nBgEzAZ9u/2PzovLBCuQ/301q5jM2ndLV+sqmIAUu/
v4DNz1KaVR2hEiKYSu3LZPP3pIjV2hQhAoteObEJepZVQLGDvAjm26k3maNt
a4qavKeL4PKq6Oxl6IQaQ4WzhiIwiRtQcWDrm2ad+ysTEbjFzL7L1pecCPeM
qRYiSGxL2ujE1geroHlZViIo4f8qcUV31JTblTuKwOljSvIGtG6tedRHHxFo
5zXO9EUv0Gp4oesvgrEATRFb/8yOeaj47xFB86bjvWx9tIcjOSMHRHBbcl9t
ADqg9iEle1wEX5435B1C36tdJjLKEEFtXLHRabY+UMsPRzeJIMKxDArRW6wv
OqS+FkFS7tcQtl4frPupea0Fx/tn/122nl95fPFZTacIFrhGWJShfzUMzRjr
FwGT6upbhU57falyx7gI/rzw8X7F5t/PIxI2i8Xw3OV2JY8dTzo3lkkSYz4K
q3bD/uRn8AlFOkUMDlZFd9ai/b5viRdcEIOx983cDejNrzQSxi6L4cxRiQub
0SsvXkj+dUMM1vX9mf7omQtjL/Y+EsORkjkLTqBr1h7IfzkshhuH96y+i56Q
S9Znuo2D89RaQ13s51J6j49XKkmQKkO+zxZj/5mULm1WuV+CBNN5JY7YD7cm
ZP5s65QgB3b4DaViP95c5mYhbyNJJhbTcf3Yz5sJCtWccyTJPoeoo7OWYz6J
VD12R55Dmux0btqJ3xeM/pwwnT0cUji45ORxW+yHv3hduRrAIS+YLU6IQpdm
XKA093LISReH0mPQ/nJy0uoHOOTYKJWXiG7tH4xXCeGQicaeuVfRxdklWVJR
HLL9r34jCr19+rL6/kscMjOt5bgIXdN0qG/HZQ6pW7GdlFyJ9+100YQvVzhk
bKi3SArdPKq1+lM2h7R3SNqriLZ8w3nXls8hlxyJM1FHq8Y39DeUccht69dZ
WaCfc9bK33zBIX12frLchzYiUnNWNXJIToLdzyB0BtG6ZKCJQ66evCQzGL1b
ymP37Dcc8sf2Oz8i0Ioyni+z2jnknciDvvEr2X5ix7mUPg756rzxrRvolskH
lSPGcT294sBP7HqU7hZyJQlyYcTlws/oPKUxm0oOQfbw3T73oQ9PCQniSxNk
lMlP2//Q01XCWg4oEuSF/Qkf+OiNqlFpO2cSZFroOscp+L33iZui5mZMkKH7
9GQB3XTbXPDWhCDHz1snWaOrrN63rTcjyId0guoKdPoWnVTPvwlSxvPRtFVo
19ziyX5AkH9G5va7oyn9RqljjgT53S/lpQ+6qGrfF0kngmztKp3uh850mloX
5YzrU+v02oUO2bvp2Fk3gvQXmPcEoheXfROkbiDIrDu9d4PRV5fIDN3aTpBd
StmZMehzL240GvgQ5G5z6fyz6DBPp1ulvgQ57+nK23Foj4gU//v+BFkZsOF2
IlqpTqe3fi9B3vfdcTQdfXwVdHQeJcgJ9h9W56MDOz/f2xxOkPZ6nSo30J67
T6d1RxCks9PZ1kK0RXzjmv5IguxXEDoXoX81b2oajibIIdNXCnfRWz1C6mVT
CHLWC5WyR+jV+q5X76cS5Pqr8Vvq0WbiueF+F3D/b4bIPkHL57aZNWQQpMrJ
FLsGdPmQWWF0NkHmpZ440YS+Ujcp2vwaQdrsmk00o2NS+7d/zSVI7d8aEa/R
m5emadgVEGTIGc72FrRM9J9EmTsEGeC7dKCDXd8/jQEVxQTpt2bh0vfozgV5
Dr6lBLlYeWNMF/rOm7VST+8SpNbT9VM+sfulWR58qoogN/Qe//AFbTMcu9a0
hiCN5v+Q7EMveLzdsK+WIIVyobP60ZK7VAZX1BPksTsDjgPs/wV3D3hJPSfI
sfbaTf+hU2Iclpa/IMhw7TbXH+iITTozdjQS5NvwP/ATvUbyzev6ZoLc2bdE
8RfaquVGUdAbgiwv2fSNtV5+ZKxuC46nEkwNo5nVhrYn23B+yyTPEXS/lpyO
cQdBnu06oz2Kfv27W/y5kyCL6vd1s76ennjf5iNBnlwqchxDu/QO6XP6CDKS
rOrgo5fceyZb2k+QDw6/CRCg/zqb1bd1gCBNv9fQrPkGLlmPBglSvXaSNI3+
zJkbtv8HQcYs33OcdeM7sYf2EEFaO6b8YZ1ztEg58jdBDjhZNDLoOOfTQ4tH
CfLcqSIDEfqwttfL7j8EKfHwSyzrLaOmNxJ5BPloyrse1o7PJp4mBQSZU3HM
UMzGS0bftl9CfP6uO5T1rIBquMoQZELWn2rW8mQq11WM+2lXKWQ9qhwgGB8n
yNvSBobj6P8BiC9PPQ==
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.1, 
            2.5}, {-7.329364615603663, -7.057608613096137}}, 
           "Frame" -> {{True, True}, {True, True}}, 
           "AxesOrigin" -> {0.10000000000000023`, -7.042511057401291}, 
           "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
           "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
           "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.9, 0.36, 0.054], 
              CapForm["Butt"], 
              AbsoluteThickness[1.6]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>]]& )[<|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.1, 
           2.5}, {-7.329364615603663, -7.057608613096137}}, 
          "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0.10000000000000023`, -7.042511057401291}, 
          "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, 
          "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>],
      ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
       4.503599627370496*^15, -4.503599627370496*^15}}],
     Selectable->False]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]], 
         Line[CompressedData["
1:eJwd2Hk8VdsXAHDuQaZKlIqL8CqlktkrWYcSkbHJK9FEVDSoSCilKGQISUpE
pJIpDaYTDV5FKplSUUh5JZE7nHOv3zq/v+7n+zmfz9777L32Wutc7W173X04
EhISlpISEuyvylLe7oyLD6BxwPDPCjcNKqe9o6Tt3wfgo7Bz6m9XDWrx4Sre
VOEDuG03zy4L7VwSeTJh40PwfGj1VeCiQcXMVbwUpV4J7iHKU4qdNShGRft5
4OUqcHZKk5m1WoPq/c9Bb3l2LbTu6FozyU6D2uji8vtQSx0klM711F2mQWWa
Pns1tvlf0Fp+RJihh/MbRZonhbwCi4AzL5NVNahw0TkPm4dvwDVslfFXaQ2q
5+jQbD3BOzjeJdP1eZRL5Uvvv58h0QEjzIbqkT4udf1G1CaBfRfsk6TO17Ry
KeeyM9FSJz6BnG/sdKqBSy3o3WDZZN0DWiFnwsOruFQTbbxM6ctnmPCju0Kq
mEtpX7x6Nd2vFzI9fJK5eVzK/tsp++D+PqhKlp809RKXiltZzn8R9RWcOAm/
+hK5VOS8IIWdE77BHNXiV7IxXCp55tE5IYXfoc3be870Y1wqpIo+9cn2P7Bf
l542ephLTe5TtI9/8gOSJ3x3+m8vl6pT26lc4jME14yXDXT7cSnlwYKsiYd+
Qfu+oO6WbVzK7ZXNw3C7YdB8faXinSeXohVn8mao/oaaCr2Y8A1cKjze3Ket
9Tc4rLm0WODOpeJTQtua80dguUOuYrIzlzr8Ufroj12jwHPpvzngwKX+jWwk
Tef/Ab8FJ4Yf2HGpwpsP5O8L/sCy7u8fK1ZwqR0zfkp7VY5B+pW8SCcbLmUY
Nngmr2YM2kPX9CxHiz8NTPzxaAwGRoR2S9Dp+V+mhTWMQauZ0fy56EazjtkZ
78Ygxl3HRhJttu6xbevQGOxQU6itsOZSsskZp5z/4sHSIvm+OehbCnbSEM+D
QxMqstVJLvVpS6NpcCIPOjTr3quglSvW+N45z4O6ZJKriA7esuWZVgYPFugl
FjPApWzuHjkjkc8Ds3mb5nxEt3vdmlhH8UBuvMA2By1dOkXVdpQHp1y8HQ3Q
FhPSV4bzePDkUpKbHnqXp2bwXSEP5CuUvbTRzTL67bMl+eDRxpxRQWduWpEh
M4kPzevcFvKtuJSRdLBmw1w+xov4ah3ay6NrjuMmPrS1HzPxRGc2ze119OLD
/tzuPevRnSuCsldv5YP30yuFrugNhvJc55182LrWwMwW7SpvMcUtCH0iOn4R
2rrqPL0+lg8S32wsOei/Zjk2b6vkww3LNedvL+NS29LS4rfX8CHX+NyhAvRV
xc8OOx7xYZe/7OZraK4g5InPMz48r6tYehE97c31h35v+dAV1m1+Ci0TxckL
HOSD4WjSfC/0t68PjoSqC8DduvS3Ctrm1zTdKk0BqIZdUZuMzuDvfynSFkC4
arK9PNpBbr5WpJ4APuw9WyGBvjU/43G0qQBevszs/GHJpfYFhE5OdREAJTaw
+Rc99ntJ3p2TArjtB6ej0M50mvPwaQFk9BTsOY7OJ0Z4RmcFMPOfYY8wtMfU
mw4ViQJYr6u2/CD6gan6r6rLAug0yN+8Ax0WQi95fk8Aaw+eK7RFc8SVzb2D
ArjZFpqhiPad+0Fm6KcA/o5IDJJDP3cVWwqGBaCem+Umg066Rt6YyBdAudZ1
rgR61qonkWZSQiByTX+OLOVSVilNRjFcIRzYsyeiC51TPeSXrCUEC9f06x1o
ma9KWZk66E233raiG/9eo1Cih46OsXyN9vzU9qXDRAgfzvy2f4oOnd+Tou8k
hC3daY4l6I9rOC9MXYXQuPvRoyK0TbiuJLlGCC0RdZa30HLNPgFr/xHCrX+X
W+ej0w99tw33EQK/XjfqMrqCGhlrChfC9y6vX2fRI+tl/jlQJIQep48b/dFV
+4uXBpQIoZ+3O2gn+nTcRk2/ciE0zwlP9EHPqCv6svmhEKBmdvtW9n0Xbghc
9VQI9nv3X96IPksUnJz1UQiyVWLxavRaTXdf9R4hLNCw8XZEa/zN2Kv24n7F
8epXoYsDXScpfheC6/zyjJXo1g5+Ou+PEGrC1oWTaO3iVUVNE2moViRVTdHf
n48k/qtEQ6CPVrUxurzvctBjFRpSpL39jNAr1X9bPJxJQ3KW8IUBes/pjPq8
2TT41Z58Nh9tlr3i+lU9GtTf2ybNQ49X/oy5pE/DIUtvbz108rCNc5IhDVKr
zsvOQd/3HGwPW0bD6ifd57TRJ4JTK4NJGuxWLzs6C+2YDFcOLKdhKmdgtxZ7
Ps/Ob/dbRUOAn+5GDbSUseXPNetoECsp75qJdpGLJ/QDaHiwtHG9Mtqowu6N
7z4aPguUDk9Bq27nZOcE0ZBX4JqhxI5XFWylFkqDQV/18CT2ffZtOyIXTUOs
+pwuBbSrhoa97VkaNK9p6bI2ed6mGhlPg9w8ub3yaFrXqZx/ngb/hdenybHn
02Y+9PUqDS6DHy7LoAOjflfr5tLALF2oyNrN8Hacdz4N2ke2HJNmzztWZ37b
bRo8ru85KIVmzD/wlUtoGIy1GSPQ3b0XnjmX0zBqPxbGOt9qos/ThzS8XzSc
zmHnG3xmzKmhQWeV6SLWgeknOFaPaKjScGuQZM/jNy/r7jMaZryVU2CtllUa
OPychnnZ18ok0CLHgGULm2iYLzV5K+vHeZ87c1to6Nm89vn4Ei5V4H75Rncb
DTXL9E+zjh3fEMJ9T0NrVONK1oG3lO08PtKw+/rfiqzd/2mcltJDg+W0wFYx
2kwmpvdVLw3hy/3zWKuV2ZQpDNDwIWfeEdZib1Gk3SANkbm33Vj3KN53PfmT
BtkHI4tYP35wQKt2mIYYV6ES6wLfhT+Fo3g+nbU8ETpOZaDKjE/D9Kc2X1jv
o3JiD9A05EZGvmW9NmDzxiIxDbpHQxtYm6vNmPddkgG+1oI61mrP3vBmSzMg
+SGFYi0Oin+6VZaBOM2yetafZ9mnXlZgwMv11AvWTxs5OzomMVDyQa6ddWFo
tdE0ZQYMDOEb6/i5IZJu0xgQleuO/389LUbNcTMYKHpzdya7/rWRP640qDNg
PzJiwdpiUUGAlBYDdse6PFlz32+zJHUYSPkYcIq1RIyGQthsBpJCrpey/mLS
3nFPjwH58qhe1k97kgtG9Bmw5smos/tfeM4p2MCAge/5+utZn1squ3K3EQNz
9IdTWR8YqJuab8rA6b51naz/trEo1bRkwDBhbB97/npK9yfqAr5/bEw16xkf
zf3n2jAA0uqT2PgZO2I+a7E9Pl9kWcm6z+7eURNHBiZYNkxn469lmnmbhTMD
aSdcQliXlpids17LwMB+B1s2frOPVXyz3cCA8qHKEtaJTma2DhsZmOGro8PG
f+A3U8Z9CwMPH72cxN6P+dqmu3bsYeCgauD0CeiZQ+VP/PYy8MTG/xpr2WoT
7YADDOwpcTGWRfd7mLQfCmHgFK/di72POYnGK6OjGPAIvdfL3t8kr7Ls2GgG
+iZ/TVBEH19gLEo4y8AdLZ7VRLRXg1F5eiIDbtZlBWw+UJMw0inMZOBl6KFC
Nn/INZWEF2VhPLw9cZDNL/xLhh2lOQyMUz42Kmx+NTdMrCxgQKv7+repbL7b
u1j8spyB2PIhnxlo+U+LOodeMrB/u+9UNr8JbhWZjr5igM6eq87mv4HQRUn8
NwxIuBfM1kE/VV1kL9nBgEzAZ9u/2PzovLBCuQ/301q5jM2ndLV+sqmIAUu/
v4DNz1KaVR2hEiKYSu3LZPP3pIjV2hQhAoteObEJepZVQLGDvAjm26k3maNt
a4qavKeL4PKq6Oxl6IQaQ4WzhiIwiRtQcWDrm2ad+ysTEbjFzL7L1pecCPeM
qRYiSGxL2ujE1geroHlZViIo4f8qcUV31JTblTuKwOljSvIGtG6tedRHHxFo
5zXO9EUv0Gp4oesvgrEATRFb/8yOeaj47xFB86bjvWx9tIcjOSMHRHBbcl9t
ADqg9iEle1wEX5435B1C36tdJjLKEEFtXLHRabY+UMsPRzeJIMKxDArRW6wv
OqS+FkFS7tcQtl4frPupea0Fx/tn/122nl95fPFZTacIFrhGWJShfzUMzRjr
FwGT6upbhU57falyx7gI/rzw8X7F5t/PIxI2i8Xw3OV2JY8dTzo3lkkSYz4K
q3bD/uRn8AlFOkUMDlZFd9ai/b5viRdcEIOx983cDejNrzQSxi6L4cxRiQub
0SsvXkj+dUMM1vX9mf7omQtjL/Y+EsORkjkLTqBr1h7IfzkshhuH96y+i56Q
S9Znuo2D89RaQ13s51J6j49XKkmQKkO+zxZj/5mULm1WuV+CBNN5JY7YD7cm
ZP5s65QgB3b4DaViP95c5mYhbyNJJhbTcf3Yz5sJCtWccyTJPoeoo7OWYz6J
VD12R55Dmux0btqJ3xeM/pwwnT0cUji45ORxW+yHv3hduRrAIS+YLU6IQpdm
XKA093LISReH0mPQ/nJy0uoHOOTYKJWXiG7tH4xXCeGQicaeuVfRxdklWVJR
HLL9r34jCr19+rL6/kscMjOt5bgIXdN0qG/HZQ6pW7GdlFyJ9+100YQvVzhk
bKi3SArdPKq1+lM2h7R3SNqriLZ8w3nXls8hlxyJM1FHq8Y39DeUccht69dZ
WaCfc9bK33zBIX12frLchzYiUnNWNXJIToLdzyB0BtG6ZKCJQ66evCQzGL1b
ymP37Dcc8sf2Oz8i0Ioyni+z2jnknciDvvEr2X5ix7mUPg756rzxrRvolskH
lSPGcT294sBP7HqU7hZyJQlyYcTlws/oPKUxm0oOQfbw3T73oQ9PCQniSxNk
lMlP2//Q01XCWg4oEuSF/Qkf+OiNqlFpO2cSZFroOscp+L33iZui5mZMkKH7
9GQB3XTbXPDWhCDHz1snWaOrrN63rTcjyId0guoKdPoWnVTPvwlSxvPRtFVo
19ziyX5AkH9G5va7oyn9RqljjgT53S/lpQ+6qGrfF0kngmztKp3uh850mloX
5YzrU+v02oUO2bvp2Fk3gvQXmPcEoheXfROkbiDIrDu9d4PRV5fIDN3aTpBd
StmZMehzL240GvgQ5G5z6fyz6DBPp1ulvgQ57+nK23Foj4gU//v+BFkZsOF2
IlqpTqe3fi9B3vfdcTQdfXwVdHQeJcgJ9h9W56MDOz/f2xxOkPZ6nSo30J67
T6d1RxCks9PZ1kK0RXzjmv5IguxXEDoXoX81b2oajibIIdNXCnfRWz1C6mVT
CHLWC5WyR+jV+q5X76cS5Pqr8Vvq0WbiueF+F3D/b4bIPkHL57aZNWQQpMrJ
FLsGdPmQWWF0NkHmpZ440YS+Ujcp2vwaQdrsmk00o2NS+7d/zSVI7d8aEa/R
m5emadgVEGTIGc72FrRM9J9EmTsEGeC7dKCDXd8/jQEVxQTpt2bh0vfozgV5
Dr6lBLlYeWNMF/rOm7VST+8SpNbT9VM+sfulWR58qoogN/Qe//AFbTMcu9a0
hiCN5v+Q7EMveLzdsK+WIIVyobP60ZK7VAZX1BPksTsDjgPs/wV3D3hJPSfI
sfbaTf+hU2Iclpa/IMhw7TbXH+iITTozdjQS5NvwP/ATvUbyzev6ZoLc2bdE
8RfaquVGUdAbgiwv2fSNtV5+ZKxuC46nEkwNo5nVhrYn23B+yyTPEXS/lpyO
cQdBnu06oz2Kfv27W/y5kyCL6vd1s76ennjf5iNBnlwqchxDu/QO6XP6CDKS
rOrgo5fceyZb2k+QDw6/CRCg/zqb1bd1gCBNv9fQrPkGLlmPBglSvXaSNI3+
zJkbtv8HQcYs33OcdeM7sYf2EEFaO6b8YZ1ztEg58jdBDjhZNDLoOOfTQ4tH
CfLcqSIDEfqwttfL7j8EKfHwSyzrLaOmNxJ5BPloyrse1o7PJp4mBQSZU3HM
UMzGS0bftl9CfP6uO5T1rIBquMoQZELWn2rW8mQq11WM+2lXKWQ9qhwgGB8n
yNvSBobj6P8BiC9PPQ==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.1, 2.5}, {-7.329364615603663, -7.057608613096137}}, 
       "Frame" -> {{True, True}, {True, True}}, 
       "AxesOrigin" -> {0.10000000000000023`, -7.042511057401291}, 
       "ImageSize" -> {250, 250/GoldenRatio}, "Axes" -> {False, False}, 
       "LabelStyle" -> {FontFamily -> "Times", FontSize -> 14}, "AspectRatio" -> 
       GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.9, 0.36, 0.054], 
          CapForm["Butt"], 
          AbsoluteThickness[1.6]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.10000000000000023`, -7.042511057401291},
  BaseStyle->{FontFamily -> "CMU Serif", FontSize -> 14},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{
    FormBox[
     StyleBox[
     "\"Informativeness \\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \
OverscriptBox[\\(\[Beta]\\), \\(^\\)]]\\)\"", 
      GrayLevel[0], StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Green Investors'\\nCertainty Equivalent\"", 
      GrayLevel[0], StripOnInput -> False], TraditionalForm]},
  FrameStyle->Automatic,
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{0}, {0}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->285,
  LabelStyle->{FontFamily -> "Times"},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{0.1, 2.5}, {-7.329364615603663, -7.057608613096137}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.901486004030725*^9, {3.901486492076819*^9, 3.90148652483236*^9}, 
   3.901549588133845*^9, {3.972601430973619*^9, 3.972601439496756*^9}, 
   3.972652887564375*^9},
 CellLabel->
  "Out[253]=",ExpressionUUID->"4864c693-d77c-4e86-87cd-69d3a7db5948"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 7", "Section",
 CellChangeTimes->{{3.9726526344244633`*^9, 
  3.9726526353226633`*^9}},ExpressionUUID->"93f1cc7b-3111-48c7-8b9c-\
d3f37668bad9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"NPDFSD", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"PDF", "[", 
     RowBox[{
      RowBox[{"NormalDistribution", "[", "]"}], ",", "x"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"x", "\[Rule]", "t"}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"CETNL", "[", 
    RowBox[{"\[Mu]_", ",", "\[Sigma]_", ",", "b_"}], "]"}], "=", 
   RowBox[{"\[Mu]", "-", 
    RowBox[{"\[Sigma]", "*", 
     FractionBox[
      RowBox[{"NPDFSD", "[", 
       FractionBox[
        RowBox[{"b", "-", "\[Mu]"}], "\[Sigma]"], "]"}], 
      RowBox[{"NCDF", "[", 
       FractionBox[
        RowBox[{"b", "-", "\[Mu]"}], "\[Sigma]"], "]"}]]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CETNH", "[", 
    RowBox[{"\[Mu]_", ",", "\[Sigma]_", ",", "b_"}], "]"}], "=", 
   RowBox[{"\[Mu]", "+", 
    RowBox[{"\[Sigma]", "*", 
     FractionBox[
      RowBox[{"NPDFSD", "[", 
       FractionBox[
        RowBox[{"b", "-", "\[Mu]"}], "\[Sigma]"], "]"}], 
      RowBox[{"1", "-", 
       RowBox[{"NCDF", "[", 
        FractionBox[
         RowBox[{"b", "-", "\[Mu]"}], "\[Sigma]"], "]"}]}]]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NDP", "=", 
   RowBox[{"Simplify", "[", 
    FractionBox[
     RowBox[{
      RowBox[{"p", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"NCDF", "[", 
          FractionBox[
           RowBox[{"t", "-", "\[Mu]"}], "\[Sigma]"], "]"}]}], ")"}], "*", 
       RowBox[{"CETNH", "[", 
        RowBox[{"\[Mu]", ",", "\[Sigma]", ",", "t"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", "p"}], ")"}], "*", "\[Mu]"}]}], 
     RowBox[{
      RowBox[{"p", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"NCDF", "[", 
          FractionBox[
           RowBox[{"t", "-", "\[Mu]"}], "\[Sigma]"], "]"}]}], ")"}]}], "+", 
      "1", "-", "p"}]], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"DyeSolve", "[", 
   RowBox[{"\[Mu]val_", ",", "\[Sigma]val_", ",", "pval_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "ndp", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"ndp", "[", "t_", "]"}], "=", 
      RowBox[{"NDP", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Mu]", "->", "\[Mu]val"}], ",", 
         RowBox[{"\[Sigma]", "->", "\[Sigma]val"}], ",", 
         RowBox[{"p", "->", "pval"}]}], "}"}]}]}], ";", "\n", 
     RowBox[{"t", "/.", 
      RowBox[{"FindRoot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ndp", "[", "t", "]"}], "==", "t"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "\[Mu]val"}], "}"}]}], "]"}]}]}]}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"mnfn", "[", 
   RowBox[{"\[Mu]_", ",", "\[Sigma]_", ",", "p_", ",", 
    RowBox[{"x_", "?", "NumericQ"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "eqthresh", ",", "\[Beta]fn", ",", "UpperCond", ",", "LowerCond", ",", 
      "j", ",", "dprob"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"eqthresh", "=", 
      RowBox[{"DyeSolve", "[", 
       RowBox[{"\[Mu]", ",", "\[Sigma]", ",", "p"}], "]"}]}], ";", "\n", 
     RowBox[{"dprob", "=", 
      RowBox[{"p", "*", 
       RowBox[{"NCDF", "[", 
        FractionBox[
         RowBox[{"eqthresh", "-", "\[Mu]"}], "\[Sigma]"], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Beta]fn", "[", "j_", "]"}], "=", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"InverseCDF", "[", 
            RowBox[{
             RowBox[{"NormalDistribution", "[", 
              RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", 
             FractionBox["j", "p"]}], "]"}], ",", 
           RowBox[{"j", "<", "dprob"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"eqthresh", ",", 
           RowBox[{"j", ">=", "dprob"}]}], "}"}]}], "}"}], "]"}]}], ";", "\n", 
     RowBox[{"UpperCond", "=", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{"\[Beta]fn", "[", "y", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "x", ",", "1"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"LowerCond", "=", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{"\[Beta]fn", "[", "y", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "0", ",", "x"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"UpperCond", ",", "LowerCond", ",", 
       RowBox[{"\[Beta]fn", "[", "x", "]"}]}], "}"}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"mnfnMand", "[", 
   RowBox[{"\[Mu]_", ",", "\[Sigma]_", ",", "p_", ",", 
    RowBox[{"x_", "?", "NumericQ"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[Beta]fn", ",", "UpperCond", ",", "LowerCond", ",", "j", ",", 
      "dprob"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Beta]fn", "[", "j_", "]"}], "=", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"InverseCDF", "[", 
            RowBox[{
             RowBox[{"NormalDistribution", "[", 
              RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", 
             FractionBox["j", "p"]}], "]"}], ",", 
           RowBox[{"j", "<", 
            FractionBox["p", "2"]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Mu]", ",", 
           RowBox[{
            FractionBox["p", "2"], "<=", "j", "<=", 
            RowBox[{"1", "-", 
             FractionBox["p", "2"]}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"InverseCDF", "[", 
            RowBox[{
             RowBox[{"NormalDistribution", "[", 
              RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", 
             FractionBox[
              RowBox[{"j", "-", 
               RowBox[{"(", 
                RowBox[{"1", "-", "p"}], ")"}]}], "p"]}], "]"}], ",", 
           RowBox[{"j", ">", 
            RowBox[{"1", "-", 
             FractionBox["p", "2"]}]}]}], "}"}]}], "}"}], "]"}]}], ";", "\n", 
     
     RowBox[{"UpperCond", "=", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{"\[Beta]fn", "[", "y", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "x", ",", "1"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"LowerCond", "=", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{"\[Beta]fn", "[", "y", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", "0", ",", "x"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"UpperCond", ",", "LowerCond", ",", 
       RowBox[{"\[Beta]fn", "[", "x", "]"}]}], "}"}]}]}], "]"}]}]}], "Code",
 CellChangeTimes->{{3.930917773820694*^9, 3.930917857990859*^9}, {
   3.930917991080408*^9, 3.930918008871728*^9}, 3.930918697130166*^9, {
   3.930918739271775*^9, 3.9309187438557043`*^9}, {3.930919566817932*^9, 
   3.930919573547625*^9}, {3.931425688974504*^9, 3.931425693267387*^9}, {
   3.931610642386656*^9, 3.93161073050987*^9}, {3.9316107924861193`*^9, 
   3.931610803187061*^9}, {3.931613474496457*^9, 3.931613478386076*^9}, {
   3.9378246465067177`*^9, 3.937824693208115*^9}, {3.937824759118869*^9, 
   3.937824763986747*^9}, {3.937824882522355*^9, 3.937824888227375*^9}, {
   3.9378254161599007`*^9, 3.9378254245060043`*^9}, {3.972652752745586*^9, 
   3.972652763561838*^9}, {3.972652893286152*^9, 3.9726528999868298`*^9}, {
   3.972652931260305*^9, 3.972652931706998*^9}},
 CellLabel->
  "In[265]:=",ExpressionUUID->"f71b1dd9-46c0-452b-86f0-52873072d1fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Mu]\[Beta]", "=", "1"}], ",", 
     RowBox[{"\[Sigma]C", "=", "1"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", "1"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}], ",", 
     RowBox[{"p", "=", ".75"}], ",", 
     RowBox[{"\[Sigma]\[Beta]", "=", "1.5"}]}], "}"}], ",", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"T", ",", 
         RowBox[{"\[Kappa]", "*", 
          RowBox[{
           RowBox[{"mnfn", "[", 
            RowBox[{
            "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "p", ",", "T"}], 
            "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T", ",", 
         RowBox[{"\[Kappa]", "*", 
          RowBox[{
           RowBox[{"mnfnMand", "[", 
            RowBox[{
            "\[Mu]\[Beta]", ",", "\[Sigma]\[Beta]", ",", "p", ",", "T"}], 
            "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"ImageSize", "->", "300"}], ",", 
     RowBox[{"PlotTheme", "->", "\"\<Scientific\>\""}], ",", 
     RowBox[{"AspectRatio", "->", ".6"}], ",", 
     RowBox[{"FrameLabel", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<Market Exposure\>\"", ",", "\"\<Climate Exposure\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
         RowBox[{"Solid", ",", 
          RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}], ",", 
        RowBox[{"Directive", "[", 
         RowBox[{"Dashed", ",", 
          RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
        RowBox[{"InfiniteLine", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             FractionBox[".75", "2"], ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             FractionBox[".75", "2"], ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
        
        RowBox[{"Rotate", "[", 
         RowBox[{
          RowBox[{"Inset", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              
              RowBox[{"\"\<p*\!\(\*SubscriptBox[\(F\), \
\(\[Beta]\)]\)(\!\(\*SubscriptBox[\(\[Mu]\), \(\[Beta]\)]\))\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "14", 
               ",", "Black", ",", 
               RowBox[{"TextAlignment", "->", "Center"}]}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{".75", "/", "2"}], "-", ".05"}], ",", ".45"}], "}"}]}],
            "]"}], ",", 
          RowBox[{"90", "Degree"}]}], "]"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "->", "16"}], ",", 
     RowBox[{"PlotLabel", "->", "\"\<Achievable Exposures\>\""}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<Voluntary Disclosure\>\"", ",", "16"}], "]"}], ",", 
            
            RowBox[{"Style", "[", 
             RowBox[{"\"\<Mandatory Disclosure\>\"", ",", "16"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"LegendLayout", "->", 
           RowBox[{"{", 
            RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
        "Below"}], "]"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9455266931087103`*^9, 3.9455267197304068`*^9}, 
   3.94559982648755*^9, 3.972652714678033*^9},
 CellLabel->
  "In[272]:=",ExpressionUUID->"865450da-58a0-4523-9af1-5ddbf80dc450"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate", "izero", 
   "\"Integral and error estimates are 0 on all integration subregions. Try \
increasing the value of the MinRecursion option. If value of integral may be \
0, specify a finite value for the AccuracyGoal option.\"", 2, 272, 73, 
   30291901384776546373, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{
  3.9455267102835293`*^9, 3.945599834718026*^9, {3.9726526967326717`*^9, 
   3.972652715706293*^9}, 3.972652907973785*^9, 3.9726529444769*^9},
 CellLabel->
  "During evaluation of \
In[272]:=",ExpressionUUID->"a36536c4-9492-402a-a69b-0b1b3c2e4ac9"],

Cell[BoxData[
 TemplateBox[{
  "NIntegrate", "izero", 
   "\"Integral and error estimates are 0 on all integration subregions. Try \
increasing the value of the MinRecursion option. If value of integral may be \
0, specify a finite value for the AccuracyGoal option.\"", 2, 272, 74, 
   30291901384776546373, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{
  3.9455267102835293`*^9, 3.945599834718026*^9, {3.9726526967326717`*^9, 
   3.972652715706293*^9}, 3.972652907973785*^9, 3.972652944496024*^9},
 CellLabel->
  "During evaluation of \
In[272]:=",ExpressionUUID->"133457b8-adce-484c-b992-eec8ceff496d"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[
    InterpretationBox[{
      TagBox[{{{}, {}, 
         TagBox[{
           RGBColor[0.9, 0.36, 0.054], 
           Thickness[0.01], 
           Opacity[1.], 
           FaceForm[
            Opacity[0.4]], 
           LineBox[CompressedData["
1:eJxd2Xk01N//B3CkLG1KSYQUhRaUkqKXCi1oka1FliiSkrJkKQrZyxJKJFuM
fd9dM/N+jzF2kkK2ZGdUqKy/9+d8Op85v+/8M+dxzrzvnXnf+3q+7vuMuNld
HQsONja2CHY2tn/e//dlNidQ/WyzAvx/q/2Pdf/H5v+5vl2JUvTmxn8+XHK1
dFjM6j/zP4xL19xx5z+rppldrNC1/c8zwlMN+uH3YKD2/PZpLACl+XtpMdvs
oCzBb1HHLwj9O98DiOCU+nFy+wskaJ2svvWKPTy/psv3dfoF+nd+B7Dl2rCx
vyEY/Tv/Q9iYHDS6ZBeK/p3/EexlDkh8Sg7/O54nGMRaFGcVvUEqucZcuiWe
IKUStn7QOfrv+F7AlaGub6IQ83d8b1D4sSrowLu3f8f3Bfnuqa8uiu/+jh8E
Cu6fbzP74/+OHwbUZU1Tp8eS0crD09LZtmHgZyDlH38sBeU5tfi1V4XBYLDs
wrqwFLR85rnWHoeX8N3kSkvYIRJKnuRubG4OB4tyitNvl1Q08W32o0jAK5g9
bnR4fDQdOTd29ecuxoBsaGNM79FstG1tufoXvbegoYDjfdezUY12VNKK9Ldg
+dNv91evbBT0bVde2p5YcMm46rO5Jhv1mA3ZL3XEgrS+V+g2vRz01Mj0T8Kh
ODiuexGuXcpF1ToX2Sa/J8Atauqzs5fzkUnriivvhBJhlJ3a/8AhH80YlOTr
nEiEROF16SVh+UjCSNw6PywRvCNPzGXU5CP3m8xWZ8Uk8Ex4/FheuQAddPVP
Xe72Hjw/FLWu31iI4hOp+sLcJLh0IfpDdF4ROizlmF0rRwIl1y3uxxqKUCNJ
ZtWjSyTokdV70TZYhBYzg8k9JBIcDHOd6BIsRpdLjHcnaacCv3yth65rMeJr
mGOXD02D9fIOdXkqJcjt9/50DdFM+FEX4X05qxTxXufJ3KWRCdobvouR8VIU
XteVxXcnE7Bh33tuHaUoK843r708EypOBB4mcZYhuySmUeHeLJBjm0nSv1KG
ks6rW2jWZ4Ev+/bZPWzlaE3i5P37q3MgyiYjJvJoBdK93DFlIZ4DRlJZ8/Xn
KlDUWpq94YEcuOBlfVTPsgJJOUc5qhjlwFpH/meM4Ap0/JyGC1d6DjgIRb+g
d1Yghz9RT6K0ciFpfsN92fsIdWmfDKb654Fni470e7VK1OIS23fjXR5Invwi
aXa2EtFT/uznLcwDjNTyQEy/EuUuT/t4vi8PAvcEM3tvViKfcr4tXYfywa0w
sGAosBLt29Oe9PtbPngn2QyptFSiZ6tsyvaoFsKDwBaSymUycj1MW92kVwgW
Oc9+/LYkIztLMeMH1oWgK7vZVvsOGd0Md8ra5FEIJE1bp5OOZHQVa2IvDSc+
nxAmEOpKRvtcD548NV4InWaeXxJek1Hn6FKT2esiWCbYGKX5hYzkakIGI6aK
YaJg9oHgRQqiyawJquYuAb8P9t1ylyjIyM9XYW5LCTjyegXymVDQ1DBnx275
ElAySdspc5OC/E67e1xTL4GaUXn7ORsK6q+yEZYML4GHkR23l3tRUCR26lyO
YilwDbQ8d86nILaKxYJa5zLYOvop68YmKgoXcTZaDCqD6me+Ys4iVLTHbXqZ
XHwZyDwzX0DbqQjrtCWZFpbBExNcGZemosvKY+dDa1iejLr5C+suAyx+6efO
/VT0bK4veuZnGey1dxt+dZCKRK9cU5PiLodYIyUpwaNUlFfyeeTSlnL4sOuK
2rkTVGRZmCc6WF4OgTJxJMyGihqzbnmzsyOopZqGGFZQ0UZf3YWvAghC89Pr
31GJ+U2PPqDtRsCbL7pMoJqKvq1bb+ZviMDw7j2rkWYqkhmZ+2RzB0HJve1S
Dz5TkS3l27nzngiwwEKtn91UlP+6gbbvNYLJS5nLnPqpaNauWGVjFgKP5JCO
oGEqChHydA6TrYRXZ0vieddgqLyzWT65qxLcs93aLxhgqId+0ubVcCVcMgp5
RL2CIY78smS/qUqgpXNZp5thSPKdfL/LUiUoi5rOH7DA0KnAJDEbXjIM3qbE
FNzCULOK8+p9B8mwhuM9w9MFQ9PSzFPbj5HBZlvII3iMIUEBc88NWmTwb7dI
EHuCIaMJ7bkZUzLIhCzM1PhiaChGfLg0kAwmUm7aH15hiNc/XCI9kgxH6owX
xWIxtMdxpUlMPBk6Sp1k78RhyO7c9Ef3YjLoX3rWOkTC0MISHVP/RobCvQMr
+EswtHVMhU1xkgy+td8W08swdPxTzhGpOTJ83NlfuZqMIQtsp+PmFRQ4X31E
IZaKIZ+sNzm86yiQtNDGOU7DEOnNuok5YQqc0knA4hgYqvPxlh7fQQHGpwL7
B/UYmnwwZ94lT4HdqRtWbmnG0HpT29gGZQpwqHHldn7GkM6e0RFNHZZD/1gc
oN9kOc84/rK3Hcsf8J7Ham4UEJURkY4ZwtDULtFEDh8KTP9o4uQfw9CGkCuM
yhAK5JcV2dt+x9BGqsZU9hAFAt5bmMfz4OigtOdm258UEDtk7zK3Ekf6z8lH
9y5SYJ9JmZDbWhyFX1H2JfFTQSdk+RuTjTgSmJIXjT9KhcRPCaMmW3EkKCly
KiyMCq2NJezJB3B0yP+yjc5bKtybeHGl9xCODL9HhPCRqNAsnvwUP4yjV+Xr
vwQgKri4WpoMAY6E9LntvEao8HJhxMPxNI6En/2MclDFYOTH+O76KzgSHa5m
Go5hUNzO57nSFUdrLSPh2gwGPMpsXfJuOGIbvPH8OhsO54RuYmmPcTRpcaDb
kheHiL33+cw8cNTbv0z2zgYc1AyNdc88xVHz9eZH90VxyDBp36PihSNKX2y9
kxTLuaZ3RR/tw0HUmLtL4BmOEnpU7jxVxmFlaINRrg+OXhqvqvDRwKEiVE8/
yw9H3l3tq4PO4/CVj2qx4I8jR6MUo9DLOHiq37WRC8SRZadjeqQ5DlU9a2IL
g3B06YrGQvQdHJw1/NOtX+DoTPsG7XgnHJQ4jQ2kQnB0+NLXN8lPcLC57VxZ
F4qjXZ+yx9IDcCjT9OFVfomjLQbuyrnhOPzI/MWtG46jVR/PBhTF4rCrR3xa
JQJHC7oineUkHDiLg1IlI3E00TK6i5qHQ/eTxKLA1zjq1ilxoVfg0PPXjU0+
NXV0HPaVz+usfoMj8nkD4ZZmHJIO5QeGRuMop0HS+lMnDpPum+w43xLrW/Vq
mGMPDboSjDjc3uNIWsNSiVuRBtF9K8SLk4n1xA/6rj5Gg8nwbYaMFBzNUVqk
BPVoYOOKGN9TcTR2LM5JxJgGDS+Cc4rScNRZaUvfZkUDyy+R2nnpOKoDEJS6
T4OSctGjjAwcVVSsttzjRoNLH83q+zJxlKnSWbjvGcuxZSSuQ8E0gDS2r8NZ
OHpx5KGBShQNqGZsirXZOPIoOfn+eCINJPf8QN05OLJTEvh1MpMGYs3drcG5
ODIr6tfQLqaBre81fYU8HF1UzA3XodKATUHjO1s+jtQKPAYM6miw0tstoZfw
gQPnDxq10SCb4fODUoCjHXmi3ma9NEg775ofVkjUx/7x1pujLHPllEraTNNA
/m7JwMkiHP2W87O3W6JBRLiW7tZiHA1lGuKOPFUwzsm/O5Xw5707N7rxV4FH
lhi/dAmOGOnT5k9EqkDef/Q2jXDpbizv2c4qcNz6KfJeKY7SUkM4A+WrgF3Y
3kC4DEfRMqa6IUeqQL2mza2QcFCKbEKEOssXEq2+ptlUgQvipoZV4Oi1yd0o
P6cqWLH2cwQHwlGfsP1Fy6dVILr+MNORsEyb80qNoCrI3NxYN0zYLsSduv1V
FRyoc+Q5X4mjEm1vF/aEKjC6nSWTQJiDJ2B/d0YVWLkvXl1PJvY3FjxaVsxy
yOOI+NdYFZyrM5GyJ9x+OPqKU0MVjOnay+cS3jYTx6/fXgXRMfTrPwjfyk6u
2f+tCjR3Ga/ZTSHq83bG03WTVaAo27v6KuH5nXlHmLNVIDiwQdmdsNrX4p+1
y+nAszVLNZJwQAxKJfHRgYtauyeD8IdL+HUfYToo50eOVxHesrFG+MYOOgzP
6vS2EjZvbGw5IU+Hm95tr7sIp/l/9BdXpoNqtGBJN+Fpjc4TSxosH+Xom+u8
QAcYrpH6TNi7fDC35Codvgc0CdYRrncat468SYcb56ISsgkLKPzc7mBHB6nD
0+rvCF9j/u646EaHt2JXEv0IJ5EWQ+V96NDJBEVLwhMWnFprQ+nA5vBr62HC
iuK8nOPRdNi4X/4yB2H3zrVljGQ6dDBkezDiftEjNj5IzqXDsVl2NR/ChmvE
+69X0yGkNn3rL2J9Yqt3vDn2gQ595uGMEsJDnrt1xbqJ3/PmbOpNwnKq+1Yt
DNNh8OriLQ7CD+cUsfYpOmQmbzcJJtafUqDiWrREB1NpzbgthHntTiiE81ZD
Vx63dCaxn3T2nB67v7EaRI9WHNL/Z38NnU24sLUanhrma3MT7ovXvSq7qxp4
3Nwr9cqJ/WV8ecPqg9WgLPI5uonYn3ZCJrUjqtWw8wvPRwXCJa0WnnRNljmC
rZWT9KshWTNH0o/Y/2e07k09NSXGz43HvxD1EcLlmGZ6uxrWXnwuDIQ7KK7m
4FgNNVI+LXeJ+pJ49GSLyBPi8wXHdXuJeryt5PNhNqAa1ki/bDYknDcVGPAp
ohoKKh4ZxBP1O58ZqlYQVw0pSy7v64l6V7N+NR+aXg1nv/WNDRN5ELDjbd69
ompYCGP3XU74Q2/C7XPUarD+7m5wgMiTLdEkiT31xP15rtn2nMgbc8OsTt7P
1XD31YGL7UQepfEXhA19rQbnR0EKZCKvpupLtWgT1SDUKczTTuSZih+ZM+FP
NYDuj1V1RN55q1eVeXAy/nM9W90D47UM2MI/3Z1O5KVAWfNuFSEGrOaz4A8m
8vSa46d+IUkGlG9fYntO5K2j5t0qkGUA7h7SRCHy+IXYCpK5EgNW/lJEpiQi
/6v2383QZoCEZlmNHZHnEoLP/xxzYMCpjJn7bgnE9xmT7LzhzgAujwsSp+OJ
80JlWYW/HwO6B74s6MXh6G7YxXdZYQw4Is1d4PUORz6WI09bYxhwUH4eCoj+
8U7Z48ZsMgOe3/WJvRVDrC+f4GmxXAbkKsm1jBL9p7k/Y5daOcujReprrKoY
oL7o5qIfhSPOwM7JwCYGsO/48a7qFXF/Te+35HQw4MpgQ75J5D/5zFvQ9o0B
Mwsnz2oQ/fAsz7vIeSYDJj05zvAT/TLn0vy2F4I1YCBD3rQiGEdOszmKhVY1
sEXg6Gprov8H158W6rxfA6WyOYVOxHmBFNczz/aoBnJjV9+2Js4TFAfHbkkf
ljvOrKGcCamBfXbNDEvi/HE0ykqrq6QGMhj7DXWccLRceavp8lW1oKenFtpw
i9ifboF+FzNqwS2/HTuliaPkmjF99aJamN1i1dB1Ckdos9Z2RUottIRYuc5p
4OjjzVSmVG0tPO2MpEyqEf0zn7dM6GMt/Jhf9e3DMRypTzwb712ohbuvN/rb
KhH95dqT87badXBb5V7K7R04WpPeu8XMgGWJOdXhi6Z18Cvl5IzMduK8cTo2
X926Du4sF41bFCP6Q8SSh6J9HUzslaKt34yjR/srhIR9WSY1uOYuvmG5UqTz
8WRSHUyK5Smyr8dRm/URrb6sOhA1GJ5KXkPkV/FrwQ8lxHxJ2uxSxPmSk3u2
H8dYFtK/lF1YXwc8TFp0BReRPwlFbimf6mCZYzR3HieONH5sOhPVVwdKv46J
6HLgyEjVUSBwrA5CTyhGU5cw9CDoY9+jmTqwYO+VO7WIIb/OA5m2bPUQmVU7
8mUOQ7EyL13MeOtBb+sO1ZLfGCpwmjqpu6EebIfW+UtMY4gv+95DYeV6CL3z
q9RlBEMU8dudKf718K7Yf9d0E4aklpnG0WQaIMy0bK8y8fwQHvjr44sDDcCf
qMUYicYQp2DQyiuqLNvFSahKajbA/BgmdpN4HuneXfqAqdcAp+Q4/yx7SVyv
v/GkoEcD8FpVm9V5EdeTqket2hqgoDBzW6UVhmylXr1ecbwRDPjnX/fvwtB7
m/4865ONEFd/4OeFnRjqypFtaNRqhN59tB7yduI8/9t5+IBOI9Cy21aWbcWQ
lgptWZRBIzQfn9URFMLQTp2ft2VtGgGUv2R78xLXu2iDYWQj8FnIcE4PUpF2
A3t/ykQjSI4pjoS8o6Kx2JehOT8b4TVDKe9ONBUF2EmfKP3dCMP9lXJ8kVRE
FOcP6kIjeEoou/8MpiLGxgtxtRxNkCSX2xTiT0VWg/0XWrma4P1fcxc7sXet
agK7s0j4uhcVvfdblT2wrgkSQmKU+x9TkcbVWBOmQBNMbrIcfONCRarDR78o
QBNsTuwQmtCnov3LXD+i503wNl8cHeShos2KM/RWuWY4lLCe57wl8XyflJh2
5mAznL4lQwoyoaAMAb0X6EgzxHNYLn9oSEEPvTkfKBxrhri/VpvJNUjRaAZK
jptx/HkKss2/N+B6tRnepngkxR2gIPr+8WUSPs1wTo37EFpOQQ5y/UftuptB
4FH1Xpl4MmqWbs5bE9QCWk0i8jfplUj5avnn/v4PwKNvUCnTWI5KkmvOx0p8
hCIvAV22xmIk4U6ut3zcBoG7uzdZjeehuHvtMQLUT8D1UG7rWu9MtHqi3b5J
vB0+iF5z4TOMR9KkES9p5w5Yqf2IbHjOB11yFxm6UdoJqgbms+Qcf7DvVbyQ
vakLhkpTNlgEJkHiVftVvVe7QUhpOQpVzQXqSlO2Nu0eGHqVWrjepBRIe+cW
qLM9IHV/zkL7GgWiupIStr/phRG5sM6YRRpw6NLqeTT7oFEz2Hz/VA0ct7J5
WTHTB4VPE/peuzZCwModywfCv0I0OHh6lDeD1n2d36Fq/TDMuFG66nArCFi+
CMsb6Idl32s73nu2QdG8Xl281zd4zuVjubzuMzTpP/fdvG8AUCtJQVG1E36q
tE+wtwyAUofJnbX+XRAwEtlm6zEIIR+WPXj2pAdkJaysdCSGQIRXg8c3tRdI
C5URHNgQJM/56hm39MGbNwGnle4Ng84pFQW1tf0QQbdK6Fs/AuJJTWF2u78B
T0nJk/WUEWBLMbd6e28AdDVDF/jujMKE/r1useRBSLZyE3+yZgymdHo8vtcO
wX3tDvrDsjEoW7I5rbduBE5WnNncf20cOBO8fMP3jcJU/bEVIovjELS3lXZJ
fww2JaY5dJImIChFLcg4dBzUuKVfrNFigskf47tOxROw3XxIr+ssyxyV74Uz
LjBB9VnBqHLVBPQK3+x102XC8b+udNzxXtuA5bct326LXGbCxLxdo3PbBDyS
Tdw3fpVlI3/z32XGLCsPbq8IMGPCVEWHevrgBAif+Pr0qgUTpv96Nibu9G5L
lj/Pmq6dv8WEdvHaQ6kzE1CkL95aY8NyRE7P6yhblh3WxJpY32fCUOiY9SNO
JujeMt5xxIHl/TTRMd6HLG/z3HCKK4kJIbiKSDLxO9h7Wla3JbPccyS0JSmV
CbWCH5VwKyagCJ1XDhksx/xcZ6yRzYT6v3Y71yQhkMeErSvllnIdmXA19cXI
twKWj3Cdz8ovZsLirRCXJ0+YIHR9rYNXGcvrjvMmLGthAjYwSotMZ8JkdLVV
SyvL9X98ZOM/MYG786zUxgompOudmrbrYDkgm6v0eBfL1qur3Nf3MkFhraTn
0hITzlh5a/R9ZVkaV1+VM8Ayt/jyZo9hlj1fcAxXTrH8778ak//5/wAi7WUt

            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
         TagBox[{
           RGBColor[0.365248, 0.427802, 0.758297], 
           Thickness[0.01], 
           Opacity[1.], 
           Dashing[{Small, Small}], 
           FaceForm[
            Opacity[0.4]], 
           LineBox[CompressedData["
1:eJxd2Xk0VO//AHBbWYpEJESiQguKtNC7RVrQIltFllKEkmxZ+lDIni1EJFuS
fd8fZu4dY+wUQvbsjAqVpX73e76dz5zfd/6553XO3Oe58zzv5blnJMzua5uz
MDExVTIzMf3n+r8fs2XBumdbFOH/W+1/rPM/vvWvm7oPk0pe3f7XR8oMyyfE
Lf81/6PETI2d9/718QyzK1U6tv96UWS+WS/yAYw2XJJcwAJRRoC3Jr3TDiqS
/X9r+wej/85nD1Fs0t/OSIYgIau009uuO8DzGzq8wwsh6L/zO4It+yaBkeZQ
9N/5H4FAWvDUH7tw9N/5H8M++qhUV1rk3/G8QD/BvDSn5BVSzTdm1ynzAmnV
CL4xl7i/43sDe9ZpPRPF+L/j+4Dit/XBSm9e/x3fDxT654ddld/8HT8YFD0+
WdNHkv6OHwFk1tb5c9NpaN2RBZlc2wjw15cOSDrxDhU4t/t310bAWKjc6saI
d2jN4nPNvY4v4KvJ9faIQ+kobY6jpa0tEswrSc4/Xd+j2S9LHVsDX8LSSaMj
M1OZyKWlbyT/dzzIhbfEDx7LRds3VJ7+rPsa1BVxfOhmLqrXik1dm/kaLL77
7xn2zkXBX3YXZOxNANcsQ98t9blowGzc4U9PAsjoeYdv181DT41MfyUfSoST
OlfgxtV8VKd9hWnuazLcJb9/duFaITL5uPb6G+EUmGImj9g7FqJF/bJC7VMp
kCKyMbMsohBJGUlYFUakgE/0qeWs+kLkcYf+0UU5FbyS//lHQaUIHXQLeL/G
/S14fSj5yCdQjJJSyHoiHOlw9XLch7iCEnRE2im3QT4dDruJepxoLkEt6bLr
H19NhwE53ZDOsRL0Ozu0ZiA9HQ5GuM32CZWia2XGe1K13gO/QoOnjlsp4m1e
ZlYIzwA+BcfGAtUy5P7zQKa6WDZ8a4zyuZZTjrhucmbvVs8GrU1fxWvwchTZ
2JfDey8bsAm/B+495Sgn0a+guzIbqk4FHUlnq0B2qXSj4n05IM+0mKp3vQKl
XjptrtGUA37Mkkt7mSoRT8rcw4fceRBrkxUffawK6VzrmTeXyAMj6ZyVpotV
KHYDxcFAKQ8ue1sd07WoQtIusU6qRnmwwYn/GS20Cp28qO7KnpkHjsJxIdTe
KuT4K/ZJrGY+pK5seij3EKE+rTOh5IAC8GrXlnmrVo3aXROGbr8pgB1nPu8w
u1CNqO9+HeAqLgAsvd1eXK8a5a/J6Lg0VABBe0Ppg3eqkW8lr2jfoUJwLw4q
Gg+qRvv3dqf+/FIIPqk246rt1ejZepuKvceLwT6oPV31Wg1yO0LhbtUtBvO8
Z99+WtQgOwtxY3urYtCR22Krda8G3Yl0ztnsWQzpGrbOZ5xqkCHWylweSXw/
OUIw3K0G7Xc7eObsTDH0mnl9To6pQb1Tf1rNYkqAVaglVuNzDZKvDxuLmi+F
2aIle6ErJESR5Qmu4ygD/w8O/fJXScjI309xWbQMnLi8g3hNSGh+gq1nj0IZ
HDbJ2CV7h4T8z3l43jhdBvVTCg7LNiQ0UmsjsiOyDB5F91iv8SahaOzsxTzl
cmAfbX/uUkhCTFW/ixpcKmDbVFfO7c1kFLnVxeh3cAXUPfMTd9lKRnvdF1jl
kypA9tmtVSRJRlivbbppcQU8McFVcBkyuqYyfSm8nuG52Ds/sP4KwJL+fN91
gIyeLQ/FLX6vgH0O7hMvD5KR2PUbatIclZBgdFha6BgZFZR9mrwqWgkfdl9X
u3iKjCyKC8TGKishSDYxHbMho5acuz7MzAgayKZhBlVkJOCnszosiCC8MLPp
DZmY3/SYPWUPAq5CMVbBOjL6spHPLMAAgcH9B5aTbWQkO7ncZXMPQdkDSWn7
T2RkS/py8ZIXAiyoWPN7PxkVxjRT9scgmLuazeo8QkZLdqWqAjkIPNPCeoIn
yChM2MslQq4aXl4oS+LiwVBlb5tCWl81eOS6d1/Wx9AA9YzNy4lquGoU9ph8
HUMshRVp/vPVQMlkt8o0w9CONwojrn+qQUXMdEXJHENng1LFbbhqYMyaFF90
F0Ntqi7c+w/WAA/LW5qXK4YWZOhnJU/UgM32sMfwD4aEBG95bdKsgYBu82Tx
JxgymtVaXjStAdmw1cV6PwyNx0tMlAfVgIm0u9aHlxjiCoiUyoyugaONxr/F
EzC012mdSXxSDfSUO8vdS8SQ3cWFDo/SGtC7+uzjeDqGVv9QsdNfaqB43+ha
/jIMbZtWZVKeqwG/hi+/MyswdLIr76j0cg107Bqp5q7BkDm2y2nLWhJcqjuq
mEDGkG/OqzyujSRIXe1km6FgKP3VxtllERKc1U7GEmkYavT1kZnZSQJaV5GD
fROG5uyXb/UpkGDP+03rRNswxGdqm9CsQgIWNfb83k8Y0t47NamhzXD4L3Ml
6h2GC4yTrvnYMfwBH/hHzZ0EYrJbZeLHMTS/WyyFxZcEC99a2finMbQp7Dqt
OowEhRUlDrZfMSRAVp/PHSdB4FvzW0mcODoo47XF9jsJxA85uC6vw5He85pj
+36TYL9JhbD7BhxFXlfxS+cng3bYmlcmAjgSnFcQSzpGhpSu5CmTbTgS2rH1
bEQEGT62lDGnKeHoUMA1G+3XZHgwG3J98BCODL5GhfGmk6FNIu0pfgRHLyv5
PgciMri6WZiMA46E9TjsvCfJ8GJ10tPpHI5Enn2PdTyOweS3mT1N13EkNlFH
N5jGoLSb12udG442WETDjUUMOFWY+hTcccQ0dvv5TSYcLgrfwTL+wdGcuVK/
BRcOUfse8pp54mhwhFXu3iYc1AyMdc4/xVHbzbbHD8VwyDLp3qvqjSPSUEKT
szTD+ab3xR7vx0HMmKNP8BmOkgdU7z1VwWFdeLNRvi+OXhivr/JVx6EqXFcv
xx9HPn3d3MGXcBjmJZuvBuDIyeidUfg1HLxO37eRD8KRRa9TZvQtHGoHeBKK
g3F09br6atw9HFzUAzKtQnB0vnuTVpIzDofZjPWlw3B05Orwq7QnONhYu1Q3
huNod1fudGYgDhUavlwqL3Akqu+hkh+Jw7fsHxw6kTha33EhsCQBh90DEguq
UTha1dnaW5mOA1tp8Psd0TiabZ/aTS7Aof9JSklQDI76tctcqVU4DPx1S6tv
fSMVh/2VK9rcr3BUc0lfpL0Nh9RDhUHhcTjKa95h1dWLw5zHZju218T+1r6c
YNlLgb5kIxb3tziSUbc4zKFMgbihtRKlacR+4gf9uE9QYC5yuwHtHY6WSe3S
QroUsHFDtK/vcTR9ItF5qzEFmkNC80oycNRbbUvdbkkBi8/RWgWZOGoEEJJ+
SIGySrFjtCwcVVVxW+x1p8DVDrOmoWwcZav2Fu9/xnBCRTr7oVAKQAbT8EQO
jkKOPtJXjaUA2YxJuSEXR55lZ96eTKHAjr3fUH8ejuwOC/44k00B8bb+j6H5
ODIrGVHXKqWArd8NPcUCHF1Rzo/UJlOASVH9K1MhjtSKPEf1Gymwzsc9eZCw
ktKlg0adFMil+X4jFeFoZ4GYj9kgBTIuuRVGFBP5cWDm450phtnzynfYLFBA
4X7Z6JkSHP2U93ew+0OBqEhNnW2lOBrPNsCdOGthho1/z3vCn/btEnDnrwXP
HHF+mTIc0TIXbj3ZWgsKAVPWFMLle7CCZ7tqwWlbV/SDchxlvA9jC1KoBWYR
B32RChzFyZrqhB2thdP1ne7FhIPfySVHnWb4corlcIZNLbgiDnJEFY5iTO7H
+jvXwtoNn6JYEI6GRByuWDytBTG+I3QnwrKdLuvUg2she0tL4wRhuzAPsuTL
WlBqdOK8VI2jMi0fV+bkWjCyzpFNJszCGXigP6sWLD1+G/LVEPGNhU5VlDIc
9k9UUgxWCxcbTaQdCHcfibvu3FwL0zoOCvmEty8m8ut110JcPPXmN8J3c9Pq
D3ypBY3dxjx7SER+Wmc93ThXC8pyg9yGhFd2FRylL9WC0OgmFQ/CasOl3xvW
UIFzW87xaMKB8eh9Oi8V2MkNe7MIf7iK3/QVoYJKYfRMLWFRgXqR2zupMLGk
PfiR8K2WlvZTClS449MZ00c4I6AjQEKFCsfjhMr6CS+o9576o87wMZah5d7L
VICJeulPhH0qx/LLDKnwNbBVqJFwk/OMVfQdKty+GJucS1hQ8bukox0VpI8s
nH5D+Ab9Z88Vdyq8Fr+e4k84Nf13uIIvFXrpoGxBeNacTXNDOBWYHH9sO0JY
WYKLbSaOCgIHFK6xEPbo3VBBS6NCD01uACPWixolYJ+WT4UTS8xqvoQNeCRG
btZRIawhc9sPYn8S6na+OvGBCkO3ImllhMe99uiI9xO/59WF93cIyx/fv351
ggpjhr/vshB+tKyMdc9TITtN0iSU2H9SkapbyR8qmMpoJIoS5rI7pRjJVQd9
BRwy2UQ8ae89N/1QoA7EjlUd0vtPfI1fSL68rQ6eGhRqcRAeStIxlNtdB5zu
HtW6lUR8GV/bxH2wDlS2foprJeLTTtikYfJ4Hez6zNmhSLjso7kXVYNhllAr
lVS9OkjTyNvhT8T/ec0H809NifHzk/DPRH6EsTtlmFrXwYYrz0WAcA/J7RY4
1UG9tG/7fSK/pB4/Ed36hPh+0UmdQSIfrQ/7flgKrAMemRdtBoQL5oMCu6Lq
oKjqsX4Skb8r2eFqRYl18O6P69smIt/VrF6uhGfWwYUvQ9MTRD0I3Pm64EFJ
HaxGMPutIfxhMNn6IrkOrL566CsR9UQ0Ll1qbxOxPs81Op8T9eaWQU4v16c6
uP9S6Uo3UY8y+IsixofrwOVxsGINUa/mm8o1KbN1INwrwtlN1DNV/xq25F91
ADrf1jcS9c7ndG2FJxvtXzcxNdobb6CBKP9CfyZRLwUr2vaoCtOAm9ecP5So
pzecukaEd9CgUvIP03Oi3jpp3K8FORrgHmGtJKIeh4ivTb91mAbrfigj03Si
/tceuJ+lRQMpjYp6O6KeSwk9/3XCkQZnsxYfuicTzzO9o/e2Bw3YPS9LnUsi
zgvVFVUB/jToH/28qpuIo/sRV97kRNDgqAxHkfcbHPlaTD79GE+DgworUET0
jzcqnreX0mjw/L5vwt14Yn95hc6J59Mg/7B8+xTRf9pGsnarVTI8VXKax7KW
Bqd/u7vqxeKILah3LqiVBsw7v72pfUmsr+nD9rweGlwfay40if5PfeYq6vxC
g8XVMxfUiX54gfNN9AqdBnNeLOf5iX6Zd3Vle4hQPejL1mxeG4oj56U85WLL
ehAVPMZtRfT/0KZzwr0P66FcLq/YmTgvpCcOrDA9rof8BG5rK+I8QXJ06t/h
y3DPeR7S+bB62G/XRrMgzh/HYi01+8rqIYt2wEDbGUdrVLaZrlnfALq6auHN
d4n4dA/yv5LVAO6F3dhZDRyl1U/rnS5pgCVRy+a+szhCWzQllUkN0B5m6bas
jqOOO+/p0g0N8LQ3mjSnRvTPQq4K4Y4G+Lay/suHEzg6PftsZnC1Ae7HCATY
Hib6y40nl2y1GsFa9cE765044skcFDXTZ1hq+fjEFdNG+PHuzKKsJHHeOJdQ
eNqqEe6tEUv8LU70h6g/nsoOjTC7T5rCtwVHjw9UCYv4MZze7Jb/+xXD1Vt7
/5lLbYQ58QJlZj4cdVod1RzKaQQx/Yn5NB6ifpXGCH0oI+ZL1WKWJs6XbBxL
IzjGsLDe1dzipkbgpFPiqtiJ+pNc4v6uqxFYneI4CthwpP5t8/nYoUY4/OPE
Vh0WHBkddxIMmm6E8FPKceQ/GLIP7hh6vNgI5syD8md/Y8i/VynblqkJonMa
Jj8vYyhB9oWrGVcT6G7bebzsJ4aKnOfP6GxqAtvxjQFSCxjizX3wSESlCcLv
/Sh3ncQQScK6911AE7wpDdi90IohaVbTRIpsM0SYVuxTId4fIoN+dIQoNQN/
iiZtMg5DbELB664fZ9guUer4Do1mWJnGxO8Q7yP9e8rt6brNcFae7RfrC+J+
PYEzQp7NwGVZZ9boTdyfXjdl2dkMRcXZ26stMWQr/TJm7ckW0OdfiRnZjaG3
NiMFVmdaILFJ6fvlXRjqy5NrbtFsgcH9lIEaSeI8/9NlQkm7BSi5nesqtmFI
U5XCGqvfAm0nl7SFhDG0S/u7tZxNC4DK51wfLuJ+Vy0wiG4BXnNZtoUxMtJq
Zh55N9sCO6aVJ8PekNF0wovwvO8tEEM7XHAvjowC7WROlf9sgYmRanneaDIi
kvMbebUFvKRUPL6HkhFN4HJiA0srpMrnt4YFkJHl2Mjlj+yt8PavOUqdmfvW
t4LdBSRy05uM3vqvzx3d2ArJYfEqI/+QkbphggldsBXmNluMvXIlo+MTxz4r
QitsSekRntUjowOsbh3oeSu8LpRABznJaIvyIvWjfBscSubjvGRBvN+npmSc
P9gG5+7KpgebkFCWoG4IOtoGSSwWax4ZkNAjHzZ7xRNtkPjXaov5+u/U24CU
526cdImEbAsfjLoZtsHrd56piUokRD0wwyrl2wYX1TgOoTUk5Cg/csyuvw0E
H9ftk02qQW0ybQU8we2g2bpV4Q61GqkYVn4aGfkAnHr61bItlagsrf5SglQH
lHgL6jC1lCIpj5omi386IWhP/2bLmQKU+KA7XpDcBVxbYls8CrIR92y3Q6tE
N8hzebWPY8lIJn3SW8alB36+5jLPaQxHVz22jt8u7wWmJaYjj25JIYdB5cu5
m/sgZLP2mcziF5Bi6LB+0LAf0jrXJ6xXTAHyOlOmTq0BIOsO9gluyYb0fcur
5KUBUBOVDuocLoDYvtRkyVeDEPm6zHDXXCmw6FCaODWGIGSsFfRNEJy0tHlR
tTgEfOt+fROyJ94T1+1cMxo5DJp6AIpjGGg+1P4ZrjYCon7yx9Te1oKgRUhE
wegI7KGnbMPNaVCyotuY5P0FdD/hCmq3G6FV77nflv2j8OPVsZbv91rgu2r3
LHP7KODWDr/Jcm0QOBndaes5Bifiu97dVPkAclKWltpS47BtZf3PpvMdkL5a
HcWCjUNpX+6TDpcuePUq8NzhBxOQmecwz7nUDVFUy+QhvklQEHl9NdTkM3CW
lT3hI01Cgd/2rtodA6CjEb7Ke28K7sXsX0hNGoQ0S3eJJzzTkMWNGs22D8ND
rR7qo4ppUGlpWX05MQJnqs5vGbkxA7ycVd2+r0ZhvunE2q2/Z6DX/C6HqsM4
bE7JcOxNn4WPg6XDPimTkBzJB6aZDMv7OrOPZjNc+aiv+W7eLPRceSq7hniu
81Zq0fQChjsM003sixm+eYFX5lfpLMzetPhj0DMJc+D41b2CYTeF3lIWNAvf
Bnl5N9EngVPy5JNnNQxHbko7vx6bBXuSyOG3S5OwfS0PfyhlFj4kVmsc+TMJ
2T8e9gjUzUJUWtf2eN4pUJn4lBRTzzC1G6zFm2bBP5U1KVJqCnQbUhSTWxge
qly3Kt3OcFbH3acOy7MQs1Nnp0P+FKhxyITwaNKhXpjU/2JiGiRvjev2XWCY
pfqtSNZlOkyQlOWy1s7AoMidQXcdhquddr7V0mf4dfsX663X6HAeXXA9ITMD
j+VS9s8YMmwUcOtnhTHDKmOSVYFmdBhZ0hzZqDkDIqeGnxqaM7wUn3hujwXD
n5ZMN6zcpcMLO2k82XoGSvQkPtbbMByVNxATa8uwI0+CidVDOgwn//o+5j8D
OneNdx51ZPgARWya6xHDfNv7crtd6bDJQcP7eeIMzLnHOaU/phPrrMAekzMD
zZ8MVV086SC25n6eUNEMZCmJsp73ooP77WPv6LQZCArtoW55xrD1TEzwhB+x
nvdi7gsMz4DGuWs6pYEMy6ZsEfZ7zjAn86d+gzA66DEf/TnEOgvjhtEp0i8Y
ri3Rt/oZRYfm3bX9M7tmIXXTZgVqDMPeth2LUXEM32p4UXEngeFT0rpPlJPo
wGp36Wu71ixs99p0lj2VYeaBdu7ONIYHjoa3p76nQx4f25Fxu1lAUdovHbMY
jv++0Vg9l2H3i61SggV0YLc9oNYQNguG70MmvxQxfJT9Uk5hKR345/cpDWfM
gvDNDY7eFQxvPMmVzNpOh5Nb9z023EKHubg6y/aPDDf98pVL6qLDnt1FDRdP
0iFT9+yCXQ/Dgbns5Sf7GLbirvXgG6RD0a5JL6Z7RNxZ+qgPDTMsg59enzfK
MIfEmjbPCTqobbDvf/OSDmNuWNTlaYYpXU+NJOgMpyiekvz6lQ6jn36qjdbQ
wSuEZaJ6nuGb0zVZIT8YPnnW095kiQ5GWmxMgcRzSSQfPyK/SodY2qn9bYv0
v/+bzUFd4lNPVuL6f8+4o/0=
            "]]}, Annotation[#, "Charting`Private`Tag#2"]& ]}, {}}, {
       "WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
      StyleBox[
       DynamicBox[
        (Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
             Annotation[{
               Directive[
                Opacity[1.], 
                FaceForm[
                 Opacity[0.4]], 
                RGBColor[0.9, 0.36, 0.054], 
                AbsoluteThickness[1.6], 
                Thickness[0.01]], 
               Line[CompressedData["
1:eJxd2Xk01N//B3CkLG1KSYQUhRaUkqKXCi1oka1FliiSkrJkKQrZyxJKJFuM
fd9dM/N+jzF2kkK2ZGdUqKy/9+d8Op85v+/8M+dxzrzvnXnf+3q+7vuMuNld
HQsONja2CHY2tn/e//dlNidQ/WyzAvx/q/2Pdf/H5v+5vl2JUvTmxn8+XHK1
dFjM6j/zP4xL19xx5z+rppldrNC1/c8zwlMN+uH3YKD2/PZpLACl+XtpMdvs
oCzBb1HHLwj9O98DiOCU+nFy+wskaJ2svvWKPTy/psv3dfoF+nd+B7Dl2rCx
vyEY/Tv/Q9iYHDS6ZBeK/p3/EexlDkh8Sg7/O54nGMRaFGcVvUEqucZcuiWe
IKUStn7QOfrv+F7AlaGub6IQ83d8b1D4sSrowLu3f8f3Bfnuqa8uiu/+jh8E
Cu6fbzP74/+OHwbUZU1Tp8eS0crD09LZtmHgZyDlH38sBeU5tfi1V4XBYLDs
wrqwFLR85rnWHoeX8N3kSkvYIRJKnuRubG4OB4tyitNvl1Q08W32o0jAK5g9
bnR4fDQdOTd29ecuxoBsaGNM79FstG1tufoXvbegoYDjfdezUY12VNKK9Ldg
+dNv91evbBT0bVde2p5YcMm46rO5Jhv1mA3ZL3XEgrS+V+g2vRz01Mj0T8Kh
ODiuexGuXcpF1ToX2Sa/J8Atauqzs5fzkUnriivvhBJhlJ3a/8AhH80YlOTr
nEiEROF16SVh+UjCSNw6PywRvCNPzGXU5CP3m8xWZ8Uk8Ex4/FheuQAddPVP
Xe72Hjw/FLWu31iI4hOp+sLcJLh0IfpDdF4ROizlmF0rRwIl1y3uxxqKUCNJ
ZtWjSyTokdV70TZYhBYzg8k9JBIcDHOd6BIsRpdLjHcnaacCv3yth65rMeJr
mGOXD02D9fIOdXkqJcjt9/50DdFM+FEX4X05qxTxXufJ3KWRCdobvouR8VIU
XteVxXcnE7Bh33tuHaUoK843r708EypOBB4mcZYhuySmUeHeLJBjm0nSv1KG
ks6rW2jWZ4Ev+/bZPWzlaE3i5P37q3MgyiYjJvJoBdK93DFlIZ4DRlJZ8/Xn
KlDUWpq94YEcuOBlfVTPsgJJOUc5qhjlwFpH/meM4Ap0/JyGC1d6DjgIRb+g
d1Yghz9RT6K0ciFpfsN92fsIdWmfDKb654Fni470e7VK1OIS23fjXR5Invwi
aXa2EtFT/uznLcwDjNTyQEy/EuUuT/t4vi8PAvcEM3tvViKfcr4tXYfywa0w
sGAosBLt29Oe9PtbPngn2QyptFSiZ6tsyvaoFsKDwBaSymUycj1MW92kVwgW
Oc9+/LYkIztLMeMH1oWgK7vZVvsOGd0Md8ra5FEIJE1bp5OOZHQVa2IvDSc+
nxAmEOpKRvtcD548NV4InWaeXxJek1Hn6FKT2esiWCbYGKX5hYzkakIGI6aK
YaJg9oHgRQqiyawJquYuAb8P9t1ylyjIyM9XYW5LCTjyegXymVDQ1DBnx275
ElAySdspc5OC/E67e1xTL4GaUXn7ORsK6q+yEZYML4GHkR23l3tRUCR26lyO
YilwDbQ8d86nILaKxYJa5zLYOvop68YmKgoXcTZaDCqD6me+Ys4iVLTHbXqZ
XHwZyDwzX0DbqQjrtCWZFpbBExNcGZemosvKY+dDa1iejLr5C+suAyx+6efO
/VT0bK4veuZnGey1dxt+dZCKRK9cU5PiLodYIyUpwaNUlFfyeeTSlnL4sOuK
2rkTVGRZmCc6WF4OgTJxJMyGihqzbnmzsyOopZqGGFZQ0UZf3YWvAghC89Pr
31GJ+U2PPqDtRsCbL7pMoJqKvq1bb+ZviMDw7j2rkWYqkhmZ+2RzB0HJve1S
Dz5TkS3l27nzngiwwEKtn91UlP+6gbbvNYLJS5nLnPqpaNauWGVjFgKP5JCO
oGEqChHydA6TrYRXZ0vieddgqLyzWT65qxLcs93aLxhgqId+0ubVcCVcMgp5
RL2CIY78smS/qUqgpXNZp5thSPKdfL/LUiUoi5rOH7DA0KnAJDEbXjIM3qbE
FNzCULOK8+p9B8mwhuM9w9MFQ9PSzFPbj5HBZlvII3iMIUEBc88NWmTwb7dI
EHuCIaMJ7bkZUzLIhCzM1PhiaChGfLg0kAwmUm7aH15hiNc/XCI9kgxH6owX
xWIxtMdxpUlMPBk6Sp1k78RhyO7c9Ef3YjLoX3rWOkTC0MISHVP/RobCvQMr
+EswtHVMhU1xkgy+td8W08swdPxTzhGpOTJ83NlfuZqMIQtsp+PmFRQ4X31E
IZaKIZ+sNzm86yiQtNDGOU7DEOnNuok5YQqc0knA4hgYqvPxlh7fQQHGpwL7
B/UYmnwwZ94lT4HdqRtWbmnG0HpT29gGZQpwqHHldn7GkM6e0RFNHZZD/1gc
oN9kOc84/rK3Hcsf8J7Ham4UEJURkY4ZwtDULtFEDh8KTP9o4uQfw9CGkCuM
yhAK5JcV2dt+x9BGqsZU9hAFAt5bmMfz4OigtOdm258UEDtk7zK3Ekf6z8lH
9y5SYJ9JmZDbWhyFX1H2JfFTQSdk+RuTjTgSmJIXjT9KhcRPCaMmW3EkKCly
KiyMCq2NJezJB3B0yP+yjc5bKtybeHGl9xCODL9HhPCRqNAsnvwUP4yjV+Xr
vwQgKri4WpoMAY6E9LntvEao8HJhxMPxNI6En/2MclDFYOTH+O76KzgSHa5m
Go5hUNzO57nSFUdrLSPh2gwGPMpsXfJuOGIbvPH8OhsO54RuYmmPcTRpcaDb
kheHiL33+cw8cNTbv0z2zgYc1AyNdc88xVHz9eZH90VxyDBp36PihSNKX2y9
kxTLuaZ3RR/tw0HUmLtL4BmOEnpU7jxVxmFlaINRrg+OXhqvqvDRwKEiVE8/
yw9H3l3tq4PO4/CVj2qx4I8jR6MUo9DLOHiq37WRC8SRZadjeqQ5DlU9a2IL
g3B06YrGQvQdHJw1/NOtX+DoTPsG7XgnHJQ4jQ2kQnB0+NLXN8lPcLC57VxZ
F4qjXZ+yx9IDcCjT9OFVfomjLQbuyrnhOPzI/MWtG46jVR/PBhTF4rCrR3xa
JQJHC7oineUkHDiLg1IlI3E00TK6i5qHQ/eTxKLA1zjq1ilxoVfg0PPXjU0+
NXV0HPaVz+usfoMj8nkD4ZZmHJIO5QeGRuMop0HS+lMnDpPum+w43xLrW/Vq
mGMPDboSjDjc3uNIWsNSiVuRBtF9K8SLk4n1xA/6rj5Gg8nwbYaMFBzNUVqk
BPVoYOOKGN9TcTR2LM5JxJgGDS+Cc4rScNRZaUvfZkUDyy+R2nnpOKoDEJS6
T4OSctGjjAwcVVSsttzjRoNLH83q+zJxlKnSWbjvGcuxZSSuQ8E0gDS2r8NZ
OHpx5KGBShQNqGZsirXZOPIoOfn+eCINJPf8QN05OLJTEvh1MpMGYs3drcG5
ODIr6tfQLqaBre81fYU8HF1UzA3XodKATUHjO1s+jtQKPAYM6miw0tstoZfw
gQPnDxq10SCb4fODUoCjHXmi3ma9NEg775ofVkjUx/7x1pujLHPllEraTNNA
/m7JwMkiHP2W87O3W6JBRLiW7tZiHA1lGuKOPFUwzsm/O5Xw5707N7rxV4FH
lhi/dAmOGOnT5k9EqkDef/Q2jXDpbizv2c4qcNz6KfJeKY7SUkM4A+WrgF3Y
3kC4DEfRMqa6IUeqQL2mza2QcFCKbEKEOssXEq2+ptlUgQvipoZV4Oi1yd0o
P6cqWLH2cwQHwlGfsP1Fy6dVILr+MNORsEyb80qNoCrI3NxYN0zYLsSduv1V
FRyoc+Q5X4mjEm1vF/aEKjC6nSWTQJiDJ2B/d0YVWLkvXl1PJvY3FjxaVsxy
yOOI+NdYFZyrM5GyJ9x+OPqKU0MVjOnay+cS3jYTx6/fXgXRMfTrPwjfyk6u
2f+tCjR3Ga/ZTSHq83bG03WTVaAo27v6KuH5nXlHmLNVIDiwQdmdsNrX4p+1
y+nAszVLNZJwQAxKJfHRgYtauyeD8IdL+HUfYToo50eOVxHesrFG+MYOOgzP
6vS2EjZvbGw5IU+Hm95tr7sIp/l/9BdXpoNqtGBJN+Fpjc4TSxosH+Xom+u8
QAcYrpH6TNi7fDC35Codvgc0CdYRrncat468SYcb56ISsgkLKPzc7mBHB6nD
0+rvCF9j/u646EaHt2JXEv0IJ5EWQ+V96NDJBEVLwhMWnFprQ+nA5vBr62HC
iuK8nOPRdNi4X/4yB2H3zrVljGQ6dDBkezDiftEjNj5IzqXDsVl2NR/ChmvE
+69X0yGkNn3rL2J9Yqt3vDn2gQ595uGMEsJDnrt1xbqJ3/PmbOpNwnKq+1Yt
DNNh8OriLQ7CD+cUsfYpOmQmbzcJJtafUqDiWrREB1NpzbgthHntTiiE81ZD
Vx63dCaxn3T2nB67v7EaRI9WHNL/Z38NnU24sLUanhrma3MT7ovXvSq7qxp4
3Nwr9cqJ/WV8ecPqg9WgLPI5uonYn3ZCJrUjqtWw8wvPRwXCJa0WnnRNljmC
rZWT9KshWTNH0o/Y/2e07k09NSXGz43HvxD1EcLlmGZ6uxrWXnwuDIQ7KK7m
4FgNNVI+LXeJ+pJ49GSLyBPi8wXHdXuJeryt5PNhNqAa1ki/bDYknDcVGPAp
ohoKKh4ZxBP1O58ZqlYQVw0pSy7v64l6V7N+NR+aXg1nv/WNDRN5ELDjbd69
ompYCGP3XU74Q2/C7XPUarD+7m5wgMiTLdEkiT31xP15rtn2nMgbc8OsTt7P
1XD31YGL7UQepfEXhA19rQbnR0EKZCKvpupLtWgT1SDUKczTTuSZih+ZM+FP
NYDuj1V1RN55q1eVeXAy/nM9W90D47UM2MI/3Z1O5KVAWfNuFSEGrOaz4A8m
8vSa46d+IUkGlG9fYntO5K2j5t0qkGUA7h7SRCHy+IXYCpK5EgNW/lJEpiQi
/6v2383QZoCEZlmNHZHnEoLP/xxzYMCpjJn7bgnE9xmT7LzhzgAujwsSp+OJ
80JlWYW/HwO6B74s6MXh6G7YxXdZYQw4Is1d4PUORz6WI09bYxhwUH4eCoj+
8U7Z48ZsMgOe3/WJvRVDrC+f4GmxXAbkKsm1jBL9p7k/Y5daOcujReprrKoY
oL7o5qIfhSPOwM7JwCYGsO/48a7qFXF/Te+35HQw4MpgQ75J5D/5zFvQ9o0B
Mwsnz2oQ/fAsz7vIeSYDJj05zvAT/TLn0vy2F4I1YCBD3rQiGEdOszmKhVY1
sEXg6Gprov8H158W6rxfA6WyOYVOxHmBFNczz/aoBnJjV9+2Js4TFAfHbkkf
ljvOrKGcCamBfXbNDEvi/HE0ykqrq6QGMhj7DXWccLRceavp8lW1oKenFtpw
i9ifboF+FzNqwS2/HTuliaPkmjF99aJamN1i1dB1Ckdos9Z2RUottIRYuc5p
4OjjzVSmVG0tPO2MpEyqEf0zn7dM6GMt/Jhf9e3DMRypTzwb712ohbuvN/rb
KhH95dqT87badXBb5V7K7R04WpPeu8XMgGWJOdXhi6Z18Cvl5IzMduK8cTo2
X926Du4sF41bFCP6Q8SSh6J9HUzslaKt34yjR/srhIR9WSY1uOYuvmG5UqTz
8WRSHUyK5Smyr8dRm/URrb6sOhA1GJ5KXkPkV/FrwQ8lxHxJ2uxSxPmSk3u2
H8dYFtK/lF1YXwc8TFp0BReRPwlFbimf6mCZYzR3HieONH5sOhPVVwdKv46J
6HLgyEjVUSBwrA5CTyhGU5cw9CDoY9+jmTqwYO+VO7WIIb/OA5m2bPUQmVU7
8mUOQ7EyL13MeOtBb+sO1ZLfGCpwmjqpu6EebIfW+UtMY4gv+95DYeV6CL3z
q9RlBEMU8dudKf718K7Yf9d0E4aklpnG0WQaIMy0bK8y8fwQHvjr44sDDcCf
qMUYicYQp2DQyiuqLNvFSahKajbA/BgmdpN4HuneXfqAqdcAp+Q4/yx7SVyv
v/GkoEcD8FpVm9V5EdeTqket2hqgoDBzW6UVhmylXr1ecbwRDPjnX/fvwtB7
m/4865ONEFd/4OeFnRjqypFtaNRqhN59tB7yduI8/9t5+IBOI9Cy21aWbcWQ
lgptWZRBIzQfn9URFMLQTp2ft2VtGgGUv2R78xLXu2iDYWQj8FnIcE4PUpF2
A3t/ykQjSI4pjoS8o6Kx2JehOT8b4TVDKe9ONBUF2EmfKP3dCMP9lXJ8kVRE
FOcP6kIjeEoou/8MpiLGxgtxtRxNkCSX2xTiT0VWg/0XWrma4P1fcxc7sXet
agK7s0j4uhcVvfdblT2wrgkSQmKU+x9TkcbVWBOmQBNMbrIcfONCRarDR78o
QBNsTuwQmtCnov3LXD+i503wNl8cHeShos2KM/RWuWY4lLCe57wl8XyflJh2
5mAznL4lQwoyoaAMAb0X6EgzxHNYLn9oSEEPvTkfKBxrhri/VpvJNUjRaAZK
jptx/HkKss2/N+B6tRnepngkxR2gIPr+8WUSPs1wTo37EFpOQQ5y/UftuptB
4FH1Xpl4MmqWbs5bE9QCWk0i8jfplUj5avnn/v4PwKNvUCnTWI5KkmvOx0p8
hCIvAV22xmIk4U6ut3zcBoG7uzdZjeehuHvtMQLUT8D1UG7rWu9MtHqi3b5J
vB0+iF5z4TOMR9KkES9p5w5Yqf2IbHjOB11yFxm6UdoJqgbms+Qcf7DvVbyQ
vakLhkpTNlgEJkHiVftVvVe7QUhpOQpVzQXqSlO2Nu0eGHqVWrjepBRIe+cW
qLM9IHV/zkL7GgWiupIStr/phRG5sM6YRRpw6NLqeTT7oFEz2Hz/VA0ct7J5
WTHTB4VPE/peuzZCwModywfCv0I0OHh6lDeD1n2d36Fq/TDMuFG66nArCFi+
CMsb6Idl32s73nu2QdG8Xl281zd4zuVjubzuMzTpP/fdvG8AUCtJQVG1E36q
tE+wtwyAUofJnbX+XRAwEtlm6zEIIR+WPXj2pAdkJaysdCSGQIRXg8c3tRdI
C5URHNgQJM/56hm39MGbNwGnle4Ng84pFQW1tf0QQbdK6Fs/AuJJTWF2u78B
T0nJk/WUEWBLMbd6e28AdDVDF/jujMKE/r1useRBSLZyE3+yZgymdHo8vtcO
wX3tDvrDsjEoW7I5rbduBE5WnNncf20cOBO8fMP3jcJU/bEVIovjELS3lXZJ
fww2JaY5dJImIChFLcg4dBzUuKVfrNFigskf47tOxROw3XxIr+ssyxyV74Uz
LjBB9VnBqHLVBPQK3+x102XC8b+udNzxXtuA5bct326LXGbCxLxdo3PbBDyS
Tdw3fpVlI3/z32XGLCsPbq8IMGPCVEWHevrgBAif+Pr0qgUTpv96Nibu9G5L
lj/Pmq6dv8WEdvHaQ6kzE1CkL95aY8NyRE7P6yhblh3WxJpY32fCUOiY9SNO
JujeMt5xxIHl/TTRMd6HLG/z3HCKK4kJIbiKSDLxO9h7Wla3JbPccyS0JSmV
CbWCH5VwKyagCJ1XDhksx/xcZ6yRzYT6v3Y71yQhkMeErSvllnIdmXA19cXI
twKWj3Cdz8ovZsLirRCXJ0+YIHR9rYNXGcvrjvMmLGthAjYwSotMZ8JkdLVV
SyvL9X98ZOM/MYG786zUxgompOudmrbrYDkgm6v0eBfL1qur3Nf3MkFhraTn
0hITzlh5a/R9ZVkaV1+VM8Ayt/jyZo9hlj1fcAxXTrH8778ak//5/wAi7WUt

                "]]}, "Charting`Private`Tag#1"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                FaceForm[
                 Opacity[0.4]], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}], 
                Thickness[0.01]], 
               Line[CompressedData["
1:eJxd2Xk0VO//AHBbWYpEJESiQguKtNC7RVrQIltFllKEkmxZ+lDIni1EJFuS
fd8fZu4dY+wUQvbsjAqVpX73e76dz5zfd/6553XO3Oe58zzv5blnJMzua5uz
MDExVTIzMf3n+r8fs2XBumdbFOH/W+1/rPM/vvWvm7oPk0pe3f7XR8oMyyfE
Lf81/6PETI2d9/718QyzK1U6tv96UWS+WS/yAYw2XJJcwAJRRoC3Jr3TDiqS
/X9r+wej/85nD1Fs0t/OSIYgIau009uuO8DzGzq8wwsh6L/zO4It+yaBkeZQ
9N/5H4FAWvDUH7tw9N/5H8M++qhUV1rk3/G8QD/BvDSn5BVSzTdm1ynzAmnV
CL4xl7i/43sDe9ZpPRPF+L/j+4Dit/XBSm9e/x3fDxT654ddld/8HT8YFD0+
WdNHkv6OHwFk1tb5c9NpaN2RBZlc2wjw15cOSDrxDhU4t/t310bAWKjc6saI
d2jN4nPNvY4v4KvJ9faIQ+kobY6jpa0tEswrSc4/Xd+j2S9LHVsDX8LSSaMj
M1OZyKWlbyT/dzzIhbfEDx7LRds3VJ7+rPsa1BVxfOhmLqrXik1dm/kaLL77
7xn2zkXBX3YXZOxNANcsQ98t9blowGzc4U9PAsjoeYdv181DT41MfyUfSoST
OlfgxtV8VKd9hWnuazLcJb9/duFaITL5uPb6G+EUmGImj9g7FqJF/bJC7VMp
kCKyMbMsohBJGUlYFUakgE/0qeWs+kLkcYf+0UU5FbyS//lHQaUIHXQLeL/G
/S14fSj5yCdQjJJSyHoiHOlw9XLch7iCEnRE2im3QT4dDruJepxoLkEt6bLr
H19NhwE53ZDOsRL0Ozu0ZiA9HQ5GuM32CZWia2XGe1K13gO/QoOnjlsp4m1e
ZlYIzwA+BcfGAtUy5P7zQKa6WDZ8a4zyuZZTjrhucmbvVs8GrU1fxWvwchTZ
2JfDey8bsAm/B+495Sgn0a+guzIbqk4FHUlnq0B2qXSj4n05IM+0mKp3vQKl
XjptrtGUA37Mkkt7mSoRT8rcw4fceRBrkxUffawK6VzrmTeXyAMj6ZyVpotV
KHYDxcFAKQ8ue1sd07WoQtIusU6qRnmwwYn/GS20Cp28qO7KnpkHjsJxIdTe
KuT4K/ZJrGY+pK5seij3EKE+rTOh5IAC8GrXlnmrVo3aXROGbr8pgB1nPu8w
u1CNqO9+HeAqLgAsvd1eXK8a5a/J6Lg0VABBe0Ppg3eqkW8lr2jfoUJwLw4q
Gg+qRvv3dqf+/FIIPqk246rt1ejZepuKvceLwT6oPV31Wg1yO0LhbtUtBvO8
Z99+WtQgOwtxY3urYtCR22Krda8G3Yl0ztnsWQzpGrbOZ5xqkCHWylweSXw/
OUIw3K0G7Xc7eObsTDH0mnl9To6pQb1Tf1rNYkqAVaglVuNzDZKvDxuLmi+F
2aIle6ErJESR5Qmu4ygD/w8O/fJXScjI309xWbQMnLi8g3hNSGh+gq1nj0IZ
HDbJ2CV7h4T8z3l43jhdBvVTCg7LNiQ0UmsjsiOyDB5F91iv8SahaOzsxTzl
cmAfbX/uUkhCTFW/ixpcKmDbVFfO7c1kFLnVxeh3cAXUPfMTd9lKRnvdF1jl
kypA9tmtVSRJRlivbbppcQU8McFVcBkyuqYyfSm8nuG52Ds/sP4KwJL+fN91
gIyeLQ/FLX6vgH0O7hMvD5KR2PUbatIclZBgdFha6BgZFZR9mrwqWgkfdl9X
u3iKjCyKC8TGKishSDYxHbMho5acuz7MzAgayKZhBlVkJOCnszosiCC8MLPp
DZmY3/SYPWUPAq5CMVbBOjL6spHPLMAAgcH9B5aTbWQkO7ncZXMPQdkDSWn7
T2RkS/py8ZIXAiyoWPN7PxkVxjRT9scgmLuazeo8QkZLdqWqAjkIPNPCeoIn
yChM2MslQq4aXl4oS+LiwVBlb5tCWl81eOS6d1/Wx9AA9YzNy4lquGoU9ph8
HUMshRVp/vPVQMlkt8o0w9CONwojrn+qQUXMdEXJHENng1LFbbhqYMyaFF90
F0Ntqi7c+w/WAA/LW5qXK4YWZOhnJU/UgM32sMfwD4aEBG95bdKsgYBu82Tx
JxgymtVaXjStAdmw1cV6PwyNx0tMlAfVgIm0u9aHlxjiCoiUyoyugaONxr/F
EzC012mdSXxSDfSUO8vdS8SQ3cWFDo/SGtC7+uzjeDqGVv9QsdNfaqB43+ha
/jIMbZtWZVKeqwG/hi+/MyswdLIr76j0cg107Bqp5q7BkDm2y2nLWhJcqjuq
mEDGkG/OqzyujSRIXe1km6FgKP3VxtllERKc1U7GEmkYavT1kZnZSQJaV5GD
fROG5uyXb/UpkGDP+03rRNswxGdqm9CsQgIWNfb83k8Y0t47NamhzXD4L3Ml
6h2GC4yTrvnYMfwBH/hHzZ0EYrJbZeLHMTS/WyyFxZcEC99a2finMbQp7Dqt
OowEhRUlDrZfMSRAVp/PHSdB4FvzW0mcODoo47XF9jsJxA85uC6vw5He85pj
+36TYL9JhbD7BhxFXlfxS+cng3bYmlcmAjgSnFcQSzpGhpSu5CmTbTgS2rH1
bEQEGT62lDGnKeHoUMA1G+3XZHgwG3J98BCODL5GhfGmk6FNIu0pfgRHLyv5
PgciMri6WZiMA46E9TjsvCfJ8GJ10tPpHI5Enn2PdTyOweS3mT1N13EkNlFH
N5jGoLSb12udG442WETDjUUMOFWY+hTcccQ0dvv5TSYcLgrfwTL+wdGcuVK/
BRcOUfse8pp54mhwhFXu3iYc1AyMdc4/xVHbzbbHD8VwyDLp3qvqjSPSUEKT
szTD+ab3xR7vx0HMmKNP8BmOkgdU7z1VwWFdeLNRvi+OXhivr/JVx6EqXFcv
xx9HPn3d3MGXcBjmJZuvBuDIyeidUfg1HLxO37eRD8KRRa9TZvQtHGoHeBKK
g3F09br6atw9HFzUAzKtQnB0vnuTVpIzDofZjPWlw3B05Orwq7QnONhYu1Q3
huNod1fudGYgDhUavlwqL3Akqu+hkh+Jw7fsHxw6kTha33EhsCQBh90DEguq
UTha1dnaW5mOA1tp8Psd0TiabZ/aTS7Aof9JSklQDI76tctcqVU4DPx1S6tv
fSMVh/2VK9rcr3BUc0lfpL0Nh9RDhUHhcTjKa95h1dWLw5zHZju218T+1r6c
YNlLgb5kIxb3tziSUbc4zKFMgbihtRKlacR+4gf9uE9QYC5yuwHtHY6WSe3S
QroUsHFDtK/vcTR9ItF5qzEFmkNC80oycNRbbUvdbkkBi8/RWgWZOGoEEJJ+
SIGySrFjtCwcVVVxW+x1p8DVDrOmoWwcZav2Fu9/xnBCRTr7oVAKQAbT8EQO
jkKOPtJXjaUA2YxJuSEXR55lZ96eTKHAjr3fUH8ejuwOC/44k00B8bb+j6H5
ODIrGVHXKqWArd8NPcUCHF1Rzo/UJlOASVH9K1MhjtSKPEf1Gymwzsc9eZCw
ktKlg0adFMil+X4jFeFoZ4GYj9kgBTIuuRVGFBP5cWDm450phtnzynfYLFBA
4X7Z6JkSHP2U93ew+0OBqEhNnW2lOBrPNsCdOGthho1/z3vCn/btEnDnrwXP
HHF+mTIc0TIXbj3ZWgsKAVPWFMLle7CCZ7tqwWlbV/SDchxlvA9jC1KoBWYR
B32RChzFyZrqhB2thdP1ne7FhIPfySVHnWb4corlcIZNLbgiDnJEFY5iTO7H
+jvXwtoNn6JYEI6GRByuWDytBTG+I3QnwrKdLuvUg2she0tL4wRhuzAPsuTL
WlBqdOK8VI2jMi0fV+bkWjCyzpFNJszCGXigP6sWLD1+G/LVEPGNhU5VlDIc
9k9UUgxWCxcbTaQdCHcfibvu3FwL0zoOCvmEty8m8ut110JcPPXmN8J3c9Pq
D3ypBY3dxjx7SER+Wmc93ThXC8pyg9yGhFd2FRylL9WC0OgmFQ/CasOl3xvW
UIFzW87xaMKB8eh9Oi8V2MkNe7MIf7iK3/QVoYJKYfRMLWFRgXqR2zupMLGk
PfiR8K2WlvZTClS449MZ00c4I6AjQEKFCsfjhMr6CS+o9576o87wMZah5d7L
VICJeulPhH0qx/LLDKnwNbBVqJFwk/OMVfQdKty+GJucS1hQ8bukox0VpI8s
nH5D+Ab9Z88Vdyq8Fr+e4k84Nf13uIIvFXrpoGxBeNacTXNDOBWYHH9sO0JY
WYKLbSaOCgIHFK6xEPbo3VBBS6NCD01uACPWixolYJ+WT4UTS8xqvoQNeCRG
btZRIawhc9sPYn8S6na+OvGBCkO3ImllhMe99uiI9xO/59WF93cIyx/fv351
ggpjhr/vshB+tKyMdc9TITtN0iSU2H9SkapbyR8qmMpoJIoS5rI7pRjJVQd9
BRwy2UQ8ae89N/1QoA7EjlUd0vtPfI1fSL68rQ6eGhRqcRAeStIxlNtdB5zu
HtW6lUR8GV/bxH2wDlS2foprJeLTTtikYfJ4Hez6zNmhSLjso7kXVYNhllAr
lVS9OkjTyNvhT8T/ec0H809NifHzk/DPRH6EsTtlmFrXwYYrz0WAcA/J7RY4
1UG9tG/7fSK/pB4/Ed36hPh+0UmdQSIfrQ/7flgKrAMemRdtBoQL5oMCu6Lq
oKjqsX4Skb8r2eFqRYl18O6P69smIt/VrF6uhGfWwYUvQ9MTRD0I3Pm64EFJ
HaxGMPutIfxhMNn6IrkOrL566CsR9UQ0Ll1qbxOxPs81Op8T9eaWQU4v16c6
uP9S6Uo3UY8y+IsixofrwOVxsGINUa/mm8o1KbN1INwrwtlN1DNV/xq25F91
ADrf1jcS9c7ndG2FJxvtXzcxNdobb6CBKP9CfyZRLwUr2vaoCtOAm9ecP5So
pzecukaEd9CgUvIP03Oi3jpp3K8FORrgHmGtJKIeh4ivTb91mAbrfigj03Si
/tceuJ+lRQMpjYp6O6KeSwk9/3XCkQZnsxYfuicTzzO9o/e2Bw3YPS9LnUsi
zgvVFVUB/jToH/28qpuIo/sRV97kRNDgqAxHkfcbHPlaTD79GE+DgworUET0
jzcqnreX0mjw/L5vwt14Yn95hc6J59Mg/7B8+xTRf9pGsnarVTI8VXKax7KW
Bqd/u7vqxeKILah3LqiVBsw7v72pfUmsr+nD9rweGlwfay40if5PfeYq6vxC
g8XVMxfUiX54gfNN9AqdBnNeLOf5iX6Zd3Vle4hQPejL1mxeG4oj56U85WLL
ehAVPMZtRfT/0KZzwr0P66FcLq/YmTgvpCcOrDA9rof8BG5rK+I8QXJ06t/h
y3DPeR7S+bB62G/XRrMgzh/HYi01+8rqIYt2wEDbGUdrVLaZrlnfALq6auHN
d4n4dA/yv5LVAO6F3dhZDRyl1U/rnS5pgCVRy+a+szhCWzQllUkN0B5m6bas
jqOOO+/p0g0N8LQ3mjSnRvTPQq4K4Y4G+Lay/suHEzg6PftsZnC1Ae7HCATY
Hib6y40nl2y1GsFa9cE765044skcFDXTZ1hq+fjEFdNG+PHuzKKsJHHeOJdQ
eNqqEe6tEUv8LU70h6g/nsoOjTC7T5rCtwVHjw9UCYv4MZze7Jb/+xXD1Vt7
/5lLbYQ58QJlZj4cdVod1RzKaQQx/Yn5NB6ifpXGCH0oI+ZL1WKWJs6XbBxL
IzjGsLDe1dzipkbgpFPiqtiJ+pNc4v6uqxFYneI4CthwpP5t8/nYoUY4/OPE
Vh0WHBkddxIMmm6E8FPKceQ/GLIP7hh6vNgI5syD8md/Y8i/VynblqkJonMa
Jj8vYyhB9oWrGVcT6G7bebzsJ4aKnOfP6GxqAtvxjQFSCxjizX3wSESlCcLv
/Sh3ncQQScK6911AE7wpDdi90IohaVbTRIpsM0SYVuxTId4fIoN+dIQoNQN/
iiZtMg5DbELB664fZ9guUer4Do1mWJnGxO8Q7yP9e8rt6brNcFae7RfrC+J+
PYEzQp7NwGVZZ9boTdyfXjdl2dkMRcXZ26stMWQr/TJm7ckW0OdfiRnZjaG3
NiMFVmdaILFJ6fvlXRjqy5NrbtFsgcH9lIEaSeI8/9NlQkm7BSi5nesqtmFI
U5XCGqvfAm0nl7SFhDG0S/u7tZxNC4DK51wfLuJ+Vy0wiG4BXnNZtoUxMtJq
Zh55N9sCO6aVJ8PekNF0wovwvO8tEEM7XHAvjowC7WROlf9sgYmRanneaDIi
kvMbebUFvKRUPL6HkhFN4HJiA0srpMrnt4YFkJHl2Mjlj+yt8PavOUqdmfvW
t4LdBSRy05uM3vqvzx3d2ArJYfEqI/+QkbphggldsBXmNluMvXIlo+MTxz4r
QitsSekRntUjowOsbh3oeSu8LpRABznJaIvyIvWjfBscSubjvGRBvN+npmSc
P9gG5+7KpgebkFCWoG4IOtoGSSwWax4ZkNAjHzZ7xRNtkPjXaov5+u/U24CU
526cdImEbAsfjLoZtsHrd56piUokRD0wwyrl2wYX1TgOoTUk5Cg/csyuvw0E
H9ftk02qQW0ybQU8we2g2bpV4Q61GqkYVn4aGfkAnHr61bItlagsrf5SglQH
lHgL6jC1lCIpj5omi386IWhP/2bLmQKU+KA7XpDcBVxbYls8CrIR92y3Q6tE
N8hzebWPY8lIJn3SW8alB36+5jLPaQxHVz22jt8u7wWmJaYjj25JIYdB5cu5
m/sgZLP2mcziF5Bi6LB+0LAf0jrXJ6xXTAHyOlOmTq0BIOsO9gluyYb0fcur
5KUBUBOVDuocLoDYvtRkyVeDEPm6zHDXXCmw6FCaODWGIGSsFfRNEJy0tHlR
tTgEfOt+fROyJ94T1+1cMxo5DJp6AIpjGGg+1P4ZrjYCon7yx9Te1oKgRUhE
wegI7KGnbMPNaVCyotuY5P0FdD/hCmq3G6FV77nflv2j8OPVsZbv91rgu2r3
LHP7KODWDr/Jcm0QOBndaes5Bifiu97dVPkAclKWltpS47BtZf3PpvMdkL5a
HcWCjUNpX+6TDpcuePUq8NzhBxOQmecwz7nUDVFUy+QhvklQEHl9NdTkM3CW
lT3hI01Cgd/2rtodA6CjEb7Ke28K7sXsX0hNGoQ0S3eJJzzTkMWNGs22D8ND
rR7qo4ppUGlpWX05MQJnqs5vGbkxA7ycVd2+r0ZhvunE2q2/Z6DX/C6HqsM4
bE7JcOxNn4WPg6XDPimTkBzJB6aZDMv7OrOPZjNc+aiv+W7eLPRceSq7hniu
81Zq0fQChjsM003sixm+eYFX5lfpLMzetPhj0DMJc+D41b2CYTeF3lIWNAvf
Bnl5N9EngVPy5JNnNQxHbko7vx6bBXuSyOG3S5OwfS0PfyhlFj4kVmsc+TMJ
2T8e9gjUzUJUWtf2eN4pUJn4lBRTzzC1G6zFm2bBP5U1KVJqCnQbUhSTWxge
qly3Kt3OcFbH3acOy7MQs1Nnp0P+FKhxyITwaNKhXpjU/2JiGiRvjev2XWCY
pfqtSNZlOkyQlOWy1s7AoMidQXcdhquddr7V0mf4dfsX663X6HAeXXA9ITMD
j+VS9s8YMmwUcOtnhTHDKmOSVYFmdBhZ0hzZqDkDIqeGnxqaM7wUn3hujwXD
n5ZMN6zcpcMLO2k82XoGSvQkPtbbMByVNxATa8uwI0+CidVDOgwn//o+5j8D
OneNdx51ZPgARWya6xHDfNv7crtd6bDJQcP7eeIMzLnHOaU/phPrrMAekzMD
zZ8MVV086SC25n6eUNEMZCmJsp73ooP77WPv6LQZCArtoW55xrD1TEzwhB+x
nvdi7gsMz4DGuWs6pYEMy6ZsEfZ7zjAn86d+gzA66DEf/TnEOgvjhtEp0i8Y
ri3Rt/oZRYfm3bX9M7tmIXXTZgVqDMPeth2LUXEM32p4UXEngeFT0rpPlJPo
wGp36Wu71ixs99p0lj2VYeaBdu7ONIYHjoa3p76nQx4f25Fxu1lAUdovHbMY
jv++0Vg9l2H3i61SggV0YLc9oNYQNguG70MmvxQxfJT9Uk5hKR345/cpDWfM
gvDNDY7eFQxvPMmVzNpOh5Nb9z023EKHubg6y/aPDDf98pVL6qLDnt1FDRdP
0iFT9+yCXQ/Dgbns5Sf7GLbirvXgG6RD0a5JL6Z7RNxZ+qgPDTMsg59enzfK
MIfEmjbPCTqobbDvf/OSDmNuWNTlaYYpXU+NJOgMpyiekvz6lQ6jn36qjdbQ
wSuEZaJ6nuGb0zVZIT8YPnnW095kiQ5GWmxMgcRzSSQfPyK/SodY2qn9bYv0
v/+bzUFd4lNPVuL6f8+4o/0=
                "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0., 1.}, {-0.17000958048559234`, 
              1.0000033435009519`}}, "Frame" -> {{True, True}, {True, True}}, 
             "AxesOrigin" -> {0, 0}, "ImageSize" -> {300, 180.}, 
             "Axes" -> {False, False}, 
             "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
             "AspectRatio" -> 0.6, "DefaultStyle" -> {
               Directive[
                Opacity[1.], 
                FaceForm[
                 Opacity[0.4]], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}], 
                Thickness[0.01]], 
               Directive[
                Opacity[1.], 
                FaceForm[
                 Opacity[0.4]], 
                RGBColor[0.9, 0.36, 0.054], 
                AbsoluteThickness[1.6], 
                Thickness[0.01]]}, 
             "HighlightLabelingFunctions" -> <|
              "CoordinatesToolOptions" -> Identity, 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ParametricPlot, "GroupHighlight" -> 
             False|>|>]]& )[<|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, 
            "PlotRange" -> {{0., 1.}, {-0.17000958048559234`, 
             1.0000033435009519`}}, "Frame" -> {{True, True}, {True, True}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {300, 180.}, 
            "Axes" -> {False, False}, 
            "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
            "AspectRatio" -> 0.6, "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               FaceForm[
                Opacity[0.4]], 
               RGBColor[0.365248, 0.427802, 0.758297], 
               AbsoluteThickness[1.6], 
               Dashing[{Small, Small}], 
               Thickness[0.01]], 
              Directive[
               Opacity[1.], 
               FaceForm[
                Opacity[0.4]], 
               RGBColor[0.9, 0.36, 0.054], 
               AbsoluteThickness[1.6], 
               Thickness[0.01]]}, 
            "HighlightLabelingFunctions" -> <|
             "CoordinatesToolOptions" -> Identity, 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ParametricPlot, "GroupHighlight" -> False|>|>], 
        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
         4.503599627370496*^15, -4.503599627370496*^15}}], Selectable -> 
       False]}, 
     Annotation[{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            FaceForm[
             Opacity[0.4]], 
            RGBColor[0.9, 0.36, 0.054], 
            AbsoluteThickness[1.6], 
            Thickness[0.01]], 
           Line[CompressedData["
1:eJxd2Xk01N//B3CkLG1KSYQUhRaUkqKXCi1oka1FliiSkrJkKQrZyxJKJFuM
fd9dM/N+jzF2kkK2ZGdUqKy/9+d8Op85v+/8M+dxzrzvnXnf+3q+7vuMuNld
HQsONja2CHY2tn/e//dlNidQ/WyzAvx/q/2Pdf/H5v+5vl2JUvTmxn8+XHK1
dFjM6j/zP4xL19xx5z+rppldrNC1/c8zwlMN+uH3YKD2/PZpLACl+XtpMdvs
oCzBb1HHLwj9O98DiOCU+nFy+wskaJ2svvWKPTy/psv3dfoF+nd+B7Dl2rCx
vyEY/Tv/Q9iYHDS6ZBeK/p3/EexlDkh8Sg7/O54nGMRaFGcVvUEqucZcuiWe
IKUStn7QOfrv+F7AlaGub6IQ83d8b1D4sSrowLu3f8f3Bfnuqa8uiu/+jh8E
Cu6fbzP74/+OHwbUZU1Tp8eS0crD09LZtmHgZyDlH38sBeU5tfi1V4XBYLDs
wrqwFLR85rnWHoeX8N3kSkvYIRJKnuRubG4OB4tyitNvl1Q08W32o0jAK5g9
bnR4fDQdOTd29ecuxoBsaGNM79FstG1tufoXvbegoYDjfdezUY12VNKK9Ldg
+dNv91evbBT0bVde2p5YcMm46rO5Jhv1mA3ZL3XEgrS+V+g2vRz01Mj0T8Kh
ODiuexGuXcpF1ToX2Sa/J8Atauqzs5fzkUnriivvhBJhlJ3a/8AhH80YlOTr
nEiEROF16SVh+UjCSNw6PywRvCNPzGXU5CP3m8xWZ8Uk8Ex4/FheuQAddPVP
Xe72Hjw/FLWu31iI4hOp+sLcJLh0IfpDdF4ROizlmF0rRwIl1y3uxxqKUCNJ
ZtWjSyTokdV70TZYhBYzg8k9JBIcDHOd6BIsRpdLjHcnaacCv3yth65rMeJr
mGOXD02D9fIOdXkqJcjt9/50DdFM+FEX4X05qxTxXufJ3KWRCdobvouR8VIU
XteVxXcnE7Bh33tuHaUoK843r708EypOBB4mcZYhuySmUeHeLJBjm0nSv1KG
ks6rW2jWZ4Ev+/bZPWzlaE3i5P37q3MgyiYjJvJoBdK93DFlIZ4DRlJZ8/Xn
KlDUWpq94YEcuOBlfVTPsgJJOUc5qhjlwFpH/meM4Ap0/JyGC1d6DjgIRb+g
d1Yghz9RT6K0ciFpfsN92fsIdWmfDKb654Fni470e7VK1OIS23fjXR5Invwi
aXa2EtFT/uznLcwDjNTyQEy/EuUuT/t4vi8PAvcEM3tvViKfcr4tXYfywa0w
sGAosBLt29Oe9PtbPngn2QyptFSiZ6tsyvaoFsKDwBaSymUycj1MW92kVwgW
Oc9+/LYkIztLMeMH1oWgK7vZVvsOGd0Md8ra5FEIJE1bp5OOZHQVa2IvDSc+
nxAmEOpKRvtcD548NV4InWaeXxJek1Hn6FKT2esiWCbYGKX5hYzkakIGI6aK
YaJg9oHgRQqiyawJquYuAb8P9t1ylyjIyM9XYW5LCTjyegXymVDQ1DBnx275
ElAySdspc5OC/E67e1xTL4GaUXn7ORsK6q+yEZYML4GHkR23l3tRUCR26lyO
YilwDbQ8d86nILaKxYJa5zLYOvop68YmKgoXcTZaDCqD6me+Ys4iVLTHbXqZ
XHwZyDwzX0DbqQjrtCWZFpbBExNcGZemosvKY+dDa1iejLr5C+suAyx+6efO
/VT0bK4veuZnGey1dxt+dZCKRK9cU5PiLodYIyUpwaNUlFfyeeTSlnL4sOuK
2rkTVGRZmCc6WF4OgTJxJMyGihqzbnmzsyOopZqGGFZQ0UZf3YWvAghC89Pr
31GJ+U2PPqDtRsCbL7pMoJqKvq1bb+ZviMDw7j2rkWYqkhmZ+2RzB0HJve1S
Dz5TkS3l27nzngiwwEKtn91UlP+6gbbvNYLJS5nLnPqpaNauWGVjFgKP5JCO
oGEqChHydA6TrYRXZ0vieddgqLyzWT65qxLcs93aLxhgqId+0ubVcCVcMgp5
RL2CIY78smS/qUqgpXNZp5thSPKdfL/LUiUoi5rOH7DA0KnAJDEbXjIM3qbE
FNzCULOK8+p9B8mwhuM9w9MFQ9PSzFPbj5HBZlvII3iMIUEBc88NWmTwb7dI
EHuCIaMJ7bkZUzLIhCzM1PhiaChGfLg0kAwmUm7aH15hiNc/XCI9kgxH6owX
xWIxtMdxpUlMPBk6Sp1k78RhyO7c9Ef3YjLoX3rWOkTC0MISHVP/RobCvQMr
+EswtHVMhU1xkgy+td8W08swdPxTzhGpOTJ83NlfuZqMIQtsp+PmFRQ4X31E
IZaKIZ+sNzm86yiQtNDGOU7DEOnNuok5YQqc0knA4hgYqvPxlh7fQQHGpwL7
B/UYmnwwZ94lT4HdqRtWbmnG0HpT29gGZQpwqHHldn7GkM6e0RFNHZZD/1gc
oN9kOc84/rK3Hcsf8J7Ham4UEJURkY4ZwtDULtFEDh8KTP9o4uQfw9CGkCuM
yhAK5JcV2dt+x9BGqsZU9hAFAt5bmMfz4OigtOdm258UEDtk7zK3Ekf6z8lH
9y5SYJ9JmZDbWhyFX1H2JfFTQSdk+RuTjTgSmJIXjT9KhcRPCaMmW3EkKCly
KiyMCq2NJezJB3B0yP+yjc5bKtybeHGl9xCODL9HhPCRqNAsnvwUP4yjV+Xr
vwQgKri4WpoMAY6E9LntvEao8HJhxMPxNI6En/2MclDFYOTH+O76KzgSHa5m
Go5hUNzO57nSFUdrLSPh2gwGPMpsXfJuOGIbvPH8OhsO54RuYmmPcTRpcaDb
kheHiL33+cw8cNTbv0z2zgYc1AyNdc88xVHz9eZH90VxyDBp36PihSNKX2y9
kxTLuaZ3RR/tw0HUmLtL4BmOEnpU7jxVxmFlaINRrg+OXhqvqvDRwKEiVE8/
yw9H3l3tq4PO4/CVj2qx4I8jR6MUo9DLOHiq37WRC8SRZadjeqQ5DlU9a2IL
g3B06YrGQvQdHJw1/NOtX+DoTPsG7XgnHJQ4jQ2kQnB0+NLXN8lPcLC57VxZ
F4qjXZ+yx9IDcCjT9OFVfomjLQbuyrnhOPzI/MWtG46jVR/PBhTF4rCrR3xa
JQJHC7oineUkHDiLg1IlI3E00TK6i5qHQ/eTxKLA1zjq1ilxoVfg0PPXjU0+
NXV0HPaVz+usfoMj8nkD4ZZmHJIO5QeGRuMop0HS+lMnDpPum+w43xLrW/Vq
mGMPDboSjDjc3uNIWsNSiVuRBtF9K8SLk4n1xA/6rj5Gg8nwbYaMFBzNUVqk
BPVoYOOKGN9TcTR2LM5JxJgGDS+Cc4rScNRZaUvfZkUDyy+R2nnpOKoDEJS6
T4OSctGjjAwcVVSsttzjRoNLH83q+zJxlKnSWbjvGcuxZSSuQ8E0gDS2r8NZ
OHpx5KGBShQNqGZsirXZOPIoOfn+eCINJPf8QN05OLJTEvh1MpMGYs3drcG5
ODIr6tfQLqaBre81fYU8HF1UzA3XodKATUHjO1s+jtQKPAYM6miw0tstoZfw
gQPnDxq10SCb4fODUoCjHXmi3ma9NEg775ofVkjUx/7x1pujLHPllEraTNNA
/m7JwMkiHP2W87O3W6JBRLiW7tZiHA1lGuKOPFUwzsm/O5Xw5707N7rxV4FH
lhi/dAmOGOnT5k9EqkDef/Q2jXDpbizv2c4qcNz6KfJeKY7SUkM4A+WrgF3Y
3kC4DEfRMqa6IUeqQL2mza2QcFCKbEKEOssXEq2+ptlUgQvipoZV4Oi1yd0o
P6cqWLH2cwQHwlGfsP1Fy6dVILr+MNORsEyb80qNoCrI3NxYN0zYLsSduv1V
FRyoc+Q5X4mjEm1vF/aEKjC6nSWTQJiDJ2B/d0YVWLkvXl1PJvY3FjxaVsxy
yOOI+NdYFZyrM5GyJ9x+OPqKU0MVjOnay+cS3jYTx6/fXgXRMfTrPwjfyk6u
2f+tCjR3Ga/ZTSHq83bG03WTVaAo27v6KuH5nXlHmLNVIDiwQdmdsNrX4p+1
y+nAszVLNZJwQAxKJfHRgYtauyeD8IdL+HUfYToo50eOVxHesrFG+MYOOgzP
6vS2EjZvbGw5IU+Hm95tr7sIp/l/9BdXpoNqtGBJN+Fpjc4TSxosH+Xom+u8
QAcYrpH6TNi7fDC35Codvgc0CdYRrncat468SYcb56ISsgkLKPzc7mBHB6nD
0+rvCF9j/u646EaHt2JXEv0IJ5EWQ+V96NDJBEVLwhMWnFprQ+nA5vBr62HC
iuK8nOPRdNi4X/4yB2H3zrVljGQ6dDBkezDiftEjNj5IzqXDsVl2NR/ChmvE
+69X0yGkNn3rL2J9Yqt3vDn2gQ595uGMEsJDnrt1xbqJ3/PmbOpNwnKq+1Yt
DNNh8OriLQ7CD+cUsfYpOmQmbzcJJtafUqDiWrREB1NpzbgthHntTiiE81ZD
Vx63dCaxn3T2nB67v7EaRI9WHNL/Z38NnU24sLUanhrma3MT7ovXvSq7qxp4
3Nwr9cqJ/WV8ecPqg9WgLPI5uonYn3ZCJrUjqtWw8wvPRwXCJa0WnnRNljmC
rZWT9KshWTNH0o/Y/2e07k09NSXGz43HvxD1EcLlmGZ6uxrWXnwuDIQ7KK7m
4FgNNVI+LXeJ+pJ49GSLyBPi8wXHdXuJeryt5PNhNqAa1ki/bDYknDcVGPAp
ohoKKh4ZxBP1O58ZqlYQVw0pSy7v64l6V7N+NR+aXg1nv/WNDRN5ELDjbd69
ompYCGP3XU74Q2/C7XPUarD+7m5wgMiTLdEkiT31xP15rtn2nMgbc8OsTt7P
1XD31YGL7UQepfEXhA19rQbnR0EKZCKvpupLtWgT1SDUKczTTuSZih+ZM+FP
NYDuj1V1RN55q1eVeXAy/nM9W90D47UM2MI/3Z1O5KVAWfNuFSEGrOaz4A8m
8vSa46d+IUkGlG9fYntO5K2j5t0qkGUA7h7SRCHy+IXYCpK5EgNW/lJEpiQi
/6v2383QZoCEZlmNHZHnEoLP/xxzYMCpjJn7bgnE9xmT7LzhzgAujwsSp+OJ
80JlWYW/HwO6B74s6MXh6G7YxXdZYQw4Is1d4PUORz6WI09bYxhwUH4eCoj+
8U7Z48ZsMgOe3/WJvRVDrC+f4GmxXAbkKsm1jBL9p7k/Y5daOcujReprrKoY
oL7o5qIfhSPOwM7JwCYGsO/48a7qFXF/Te+35HQw4MpgQ75J5D/5zFvQ9o0B
Mwsnz2oQ/fAsz7vIeSYDJj05zvAT/TLn0vy2F4I1YCBD3rQiGEdOszmKhVY1
sEXg6Gprov8H158W6rxfA6WyOYVOxHmBFNczz/aoBnJjV9+2Js4TFAfHbkkf
ljvOrKGcCamBfXbNDEvi/HE0ykqrq6QGMhj7DXWccLRceavp8lW1oKenFtpw
i9ifboF+FzNqwS2/HTuliaPkmjF99aJamN1i1dB1Ckdos9Z2RUottIRYuc5p
4OjjzVSmVG0tPO2MpEyqEf0zn7dM6GMt/Jhf9e3DMRypTzwb712ohbuvN/rb
KhH95dqT87badXBb5V7K7R04WpPeu8XMgGWJOdXhi6Z18Cvl5IzMduK8cTo2
X926Du4sF41bFCP6Q8SSh6J9HUzslaKt34yjR/srhIR9WSY1uOYuvmG5UqTz
8WRSHUyK5Smyr8dRm/URrb6sOhA1GJ5KXkPkV/FrwQ8lxHxJ2uxSxPmSk3u2
H8dYFtK/lF1YXwc8TFp0BReRPwlFbimf6mCZYzR3HieONH5sOhPVVwdKv46J
6HLgyEjVUSBwrA5CTyhGU5cw9CDoY9+jmTqwYO+VO7WIIb/OA5m2bPUQmVU7
8mUOQ7EyL13MeOtBb+sO1ZLfGCpwmjqpu6EebIfW+UtMY4gv+95DYeV6CL3z
q9RlBEMU8dudKf718K7Yf9d0E4aklpnG0WQaIMy0bK8y8fwQHvjr44sDDcCf
qMUYicYQp2DQyiuqLNvFSahKajbA/BgmdpN4HuneXfqAqdcAp+Q4/yx7SVyv
v/GkoEcD8FpVm9V5EdeTqket2hqgoDBzW6UVhmylXr1ecbwRDPjnX/fvwtB7
m/4865ONEFd/4OeFnRjqypFtaNRqhN59tB7yduI8/9t5+IBOI9Cy21aWbcWQ
lgptWZRBIzQfn9URFMLQTp2ft2VtGgGUv2R78xLXu2iDYWQj8FnIcE4PUpF2
A3t/ykQjSI4pjoS8o6Kx2JehOT8b4TVDKe9ONBUF2EmfKP3dCMP9lXJ8kVRE
FOcP6kIjeEoou/8MpiLGxgtxtRxNkCSX2xTiT0VWg/0XWrma4P1fcxc7sXet
agK7s0j4uhcVvfdblT2wrgkSQmKU+x9TkcbVWBOmQBNMbrIcfONCRarDR78o
QBNsTuwQmtCnov3LXD+i503wNl8cHeShos2KM/RWuWY4lLCe57wl8XyflJh2
5mAznL4lQwoyoaAMAb0X6EgzxHNYLn9oSEEPvTkfKBxrhri/VpvJNUjRaAZK
jptx/HkKss2/N+B6tRnepngkxR2gIPr+8WUSPs1wTo37EFpOQQ5y/UftuptB
4FH1Xpl4MmqWbs5bE9QCWk0i8jfplUj5avnn/v4PwKNvUCnTWI5KkmvOx0p8
hCIvAV22xmIk4U6ut3zcBoG7uzdZjeehuHvtMQLUT8D1UG7rWu9MtHqi3b5J
vB0+iF5z4TOMR9KkES9p5w5Yqf2IbHjOB11yFxm6UdoJqgbms+Qcf7DvVbyQ
vakLhkpTNlgEJkHiVftVvVe7QUhpOQpVzQXqSlO2Nu0eGHqVWrjepBRIe+cW
qLM9IHV/zkL7GgWiupIStr/phRG5sM6YRRpw6NLqeTT7oFEz2Hz/VA0ct7J5
WTHTB4VPE/peuzZCwModywfCv0I0OHh6lDeD1n2d36Fq/TDMuFG66nArCFi+
CMsb6Idl32s73nu2QdG8Xl281zd4zuVjubzuMzTpP/fdvG8AUCtJQVG1E36q
tE+wtwyAUofJnbX+XRAwEtlm6zEIIR+WPXj2pAdkJaysdCSGQIRXg8c3tRdI
C5URHNgQJM/56hm39MGbNwGnle4Ng84pFQW1tf0QQbdK6Fs/AuJJTWF2u78B
T0nJk/WUEWBLMbd6e28AdDVDF/jujMKE/r1useRBSLZyE3+yZgymdHo8vtcO
wX3tDvrDsjEoW7I5rbduBE5WnNncf20cOBO8fMP3jcJU/bEVIovjELS3lXZJ
fww2JaY5dJImIChFLcg4dBzUuKVfrNFigskf47tOxROw3XxIr+ssyxyV74Uz
LjBB9VnBqHLVBPQK3+x102XC8b+udNzxXtuA5bct326LXGbCxLxdo3PbBDyS
Tdw3fpVlI3/z32XGLCsPbq8IMGPCVEWHevrgBAif+Pr0qgUTpv96Nibu9G5L
lj/Pmq6dv8WEdvHaQ6kzE1CkL95aY8NyRE7P6yhblh3WxJpY32fCUOiY9SNO
JujeMt5xxIHl/TTRMd6HLG/z3HCKK4kJIbiKSDLxO9h7Wla3JbPccyS0JSmV
CbWCH5VwKyagCJ1XDhksx/xcZ6yRzYT6v3Y71yQhkMeErSvllnIdmXA19cXI
twKWj3Cdz8ovZsLirRCXJ0+YIHR9rYNXGcvrjvMmLGthAjYwSotMZ8JkdLVV
SyvL9X98ZOM/MYG786zUxgompOudmrbrYDkgm6v0eBfL1qur3Nf3MkFhraTn
0hITzlh5a/R9ZVkaV1+VM8Ayt/jyZo9hlj1fcAxXTrH8778ak//5/wAi7WUt

            "]]}, "Charting`Private`Tag#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            FaceForm[
             Opacity[0.4]], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}], 
            Thickness[0.01]], 
           Line[CompressedData["
1:eJxd2Xk0VO//AHBbWYpEJESiQguKtNC7RVrQIltFllKEkmxZ+lDIni1EJFuS
fd8fZu4dY+wUQvbsjAqVpX73e76dz5zfd/6553XO3Oe58zzv5blnJMzua5uz
MDExVTIzMf3n+r8fs2XBumdbFOH/W+1/rPM/vvWvm7oPk0pe3f7XR8oMyyfE
Lf81/6PETI2d9/718QyzK1U6tv96UWS+WS/yAYw2XJJcwAJRRoC3Jr3TDiqS
/X9r+wej/85nD1Fs0t/OSIYgIau009uuO8DzGzq8wwsh6L/zO4It+yaBkeZQ
9N/5H4FAWvDUH7tw9N/5H8M++qhUV1rk3/G8QD/BvDSn5BVSzTdm1ynzAmnV
CL4xl7i/43sDe9ZpPRPF+L/j+4Dit/XBSm9e/x3fDxT654ddld/8HT8YFD0+
WdNHkv6OHwFk1tb5c9NpaN2RBZlc2wjw15cOSDrxDhU4t/t310bAWKjc6saI
d2jN4nPNvY4v4KvJ9faIQ+kobY6jpa0tEswrSc4/Xd+j2S9LHVsDX8LSSaMj
M1OZyKWlbyT/dzzIhbfEDx7LRds3VJ7+rPsa1BVxfOhmLqrXik1dm/kaLL77
7xn2zkXBX3YXZOxNANcsQ98t9blowGzc4U9PAsjoeYdv181DT41MfyUfSoST
OlfgxtV8VKd9hWnuazLcJb9/duFaITL5uPb6G+EUmGImj9g7FqJF/bJC7VMp
kCKyMbMsohBJGUlYFUakgE/0qeWs+kLkcYf+0UU5FbyS//lHQaUIHXQLeL/G
/S14fSj5yCdQjJJSyHoiHOlw9XLch7iCEnRE2im3QT4dDruJepxoLkEt6bLr
H19NhwE53ZDOsRL0Ozu0ZiA9HQ5GuM32CZWia2XGe1K13gO/QoOnjlsp4m1e
ZlYIzwA+BcfGAtUy5P7zQKa6WDZ8a4zyuZZTjrhucmbvVs8GrU1fxWvwchTZ
2JfDey8bsAm/B+495Sgn0a+guzIbqk4FHUlnq0B2qXSj4n05IM+0mKp3vQKl
XjptrtGUA37Mkkt7mSoRT8rcw4fceRBrkxUffawK6VzrmTeXyAMj6ZyVpotV
KHYDxcFAKQ8ue1sd07WoQtIusU6qRnmwwYn/GS20Cp28qO7KnpkHjsJxIdTe
KuT4K/ZJrGY+pK5seij3EKE+rTOh5IAC8GrXlnmrVo3aXROGbr8pgB1nPu8w
u1CNqO9+HeAqLgAsvd1eXK8a5a/J6Lg0VABBe0Ppg3eqkW8lr2jfoUJwLw4q
Gg+qRvv3dqf+/FIIPqk246rt1ejZepuKvceLwT6oPV31Wg1yO0LhbtUtBvO8
Z99+WtQgOwtxY3urYtCR22Krda8G3Yl0ztnsWQzpGrbOZ5xqkCHWylweSXw/
OUIw3K0G7Xc7eObsTDH0mnl9To6pQb1Tf1rNYkqAVaglVuNzDZKvDxuLmi+F
2aIle6ErJESR5Qmu4ygD/w8O/fJXScjI309xWbQMnLi8g3hNSGh+gq1nj0IZ
HDbJ2CV7h4T8z3l43jhdBvVTCg7LNiQ0UmsjsiOyDB5F91iv8SahaOzsxTzl
cmAfbX/uUkhCTFW/ixpcKmDbVFfO7c1kFLnVxeh3cAXUPfMTd9lKRnvdF1jl
kypA9tmtVSRJRlivbbppcQU8McFVcBkyuqYyfSm8nuG52Ds/sP4KwJL+fN91
gIyeLQ/FLX6vgH0O7hMvD5KR2PUbatIclZBgdFha6BgZFZR9mrwqWgkfdl9X
u3iKjCyKC8TGKishSDYxHbMho5acuz7MzAgayKZhBlVkJOCnszosiCC8MLPp
DZmY3/SYPWUPAq5CMVbBOjL6spHPLMAAgcH9B5aTbWQkO7ncZXMPQdkDSWn7
T2RkS/py8ZIXAiyoWPN7PxkVxjRT9scgmLuazeo8QkZLdqWqAjkIPNPCeoIn
yChM2MslQq4aXl4oS+LiwVBlb5tCWl81eOS6d1/Wx9AA9YzNy4lquGoU9ph8
HUMshRVp/vPVQMlkt8o0w9CONwojrn+qQUXMdEXJHENng1LFbbhqYMyaFF90
F0Ntqi7c+w/WAA/LW5qXK4YWZOhnJU/UgM32sMfwD4aEBG95bdKsgYBu82Tx
JxgymtVaXjStAdmw1cV6PwyNx0tMlAfVgIm0u9aHlxjiCoiUyoyugaONxr/F
EzC012mdSXxSDfSUO8vdS8SQ3cWFDo/SGtC7+uzjeDqGVv9QsdNfaqB43+ha
/jIMbZtWZVKeqwG/hi+/MyswdLIr76j0cg107Bqp5q7BkDm2y2nLWhJcqjuq
mEDGkG/OqzyujSRIXe1km6FgKP3VxtllERKc1U7GEmkYavT1kZnZSQJaV5GD
fROG5uyXb/UpkGDP+03rRNswxGdqm9CsQgIWNfb83k8Y0t47NamhzXD4L3Ml
6h2GC4yTrvnYMfwBH/hHzZ0EYrJbZeLHMTS/WyyFxZcEC99a2finMbQp7Dqt
OowEhRUlDrZfMSRAVp/PHSdB4FvzW0mcODoo47XF9jsJxA85uC6vw5He85pj
+36TYL9JhbD7BhxFXlfxS+cng3bYmlcmAjgSnFcQSzpGhpSu5CmTbTgS2rH1
bEQEGT62lDGnKeHoUMA1G+3XZHgwG3J98BCODL5GhfGmk6FNIu0pfgRHLyv5
PgciMri6WZiMA46E9TjsvCfJ8GJ10tPpHI5Enn2PdTyOweS3mT1N13EkNlFH
N5jGoLSb12udG442WETDjUUMOFWY+hTcccQ0dvv5TSYcLgrfwTL+wdGcuVK/
BRcOUfse8pp54mhwhFXu3iYc1AyMdc4/xVHbzbbHD8VwyDLp3qvqjSPSUEKT
szTD+ab3xR7vx0HMmKNP8BmOkgdU7z1VwWFdeLNRvi+OXhivr/JVx6EqXFcv
xx9HPn3d3MGXcBjmJZuvBuDIyeidUfg1HLxO37eRD8KRRa9TZvQtHGoHeBKK
g3F09br6atw9HFzUAzKtQnB0vnuTVpIzDofZjPWlw3B05Orwq7QnONhYu1Q3
huNod1fudGYgDhUavlwqL3Akqu+hkh+Jw7fsHxw6kTha33EhsCQBh90DEguq
UTha1dnaW5mOA1tp8Psd0TiabZ/aTS7Aof9JSklQDI76tctcqVU4DPx1S6tv
fSMVh/2VK9rcr3BUc0lfpL0Nh9RDhUHhcTjKa95h1dWLw5zHZju218T+1r6c
YNlLgb5kIxb3tziSUbc4zKFMgbihtRKlacR+4gf9uE9QYC5yuwHtHY6WSe3S
QroUsHFDtK/vcTR9ItF5qzEFmkNC80oycNRbbUvdbkkBi8/RWgWZOGoEEJJ+
SIGySrFjtCwcVVVxW+x1p8DVDrOmoWwcZav2Fu9/xnBCRTr7oVAKQAbT8EQO
jkKOPtJXjaUA2YxJuSEXR55lZ96eTKHAjr3fUH8ejuwOC/44k00B8bb+j6H5
ODIrGVHXKqWArd8NPcUCHF1Rzo/UJlOASVH9K1MhjtSKPEf1Gymwzsc9eZCw
ktKlg0adFMil+X4jFeFoZ4GYj9kgBTIuuRVGFBP5cWDm450phtnzynfYLFBA
4X7Z6JkSHP2U93ew+0OBqEhNnW2lOBrPNsCdOGthho1/z3vCn/btEnDnrwXP
HHF+mTIc0TIXbj3ZWgsKAVPWFMLle7CCZ7tqwWlbV/SDchxlvA9jC1KoBWYR
B32RChzFyZrqhB2thdP1ne7FhIPfySVHnWb4corlcIZNLbgiDnJEFY5iTO7H
+jvXwtoNn6JYEI6GRByuWDytBTG+I3QnwrKdLuvUg2she0tL4wRhuzAPsuTL
WlBqdOK8VI2jMi0fV+bkWjCyzpFNJszCGXigP6sWLD1+G/LVEPGNhU5VlDIc
9k9UUgxWCxcbTaQdCHcfibvu3FwL0zoOCvmEty8m8ut110JcPPXmN8J3c9Pq
D3ypBY3dxjx7SER+Wmc93ThXC8pyg9yGhFd2FRylL9WC0OgmFQ/CasOl3xvW
UIFzW87xaMKB8eh9Oi8V2MkNe7MIf7iK3/QVoYJKYfRMLWFRgXqR2zupMLGk
PfiR8K2WlvZTClS449MZ00c4I6AjQEKFCsfjhMr6CS+o9576o87wMZah5d7L
VICJeulPhH0qx/LLDKnwNbBVqJFwk/OMVfQdKty+GJucS1hQ8bukox0VpI8s
nH5D+Ab9Z88Vdyq8Fr+e4k84Nf13uIIvFXrpoGxBeNacTXNDOBWYHH9sO0JY
WYKLbSaOCgIHFK6xEPbo3VBBS6NCD01uACPWixolYJ+WT4UTS8xqvoQNeCRG
btZRIawhc9sPYn8S6na+OvGBCkO3ImllhMe99uiI9xO/59WF93cIyx/fv351
ggpjhr/vshB+tKyMdc9TITtN0iSU2H9SkapbyR8qmMpoJIoS5rI7pRjJVQd9
BRwy2UQ8ae89N/1QoA7EjlUd0vtPfI1fSL68rQ6eGhRqcRAeStIxlNtdB5zu
HtW6lUR8GV/bxH2wDlS2foprJeLTTtikYfJ4Hez6zNmhSLjso7kXVYNhllAr
lVS9OkjTyNvhT8T/ec0H809NifHzk/DPRH6EsTtlmFrXwYYrz0WAcA/J7RY4
1UG9tG/7fSK/pB4/Ed36hPh+0UmdQSIfrQ/7flgKrAMemRdtBoQL5oMCu6Lq
oKjqsX4Skb8r2eFqRYl18O6P69smIt/VrF6uhGfWwYUvQ9MTRD0I3Pm64EFJ
HaxGMPutIfxhMNn6IrkOrL566CsR9UQ0Ll1qbxOxPs81Op8T9eaWQU4v16c6
uP9S6Uo3UY8y+IsixofrwOVxsGINUa/mm8o1KbN1INwrwtlN1DNV/xq25F91
ADrf1jcS9c7ndG2FJxvtXzcxNdobb6CBKP9CfyZRLwUr2vaoCtOAm9ecP5So
pzecukaEd9CgUvIP03Oi3jpp3K8FORrgHmGtJKIeh4ivTb91mAbrfigj03Si
/tceuJ+lRQMpjYp6O6KeSwk9/3XCkQZnsxYfuicTzzO9o/e2Bw3YPS9LnUsi
zgvVFVUB/jToH/28qpuIo/sRV97kRNDgqAxHkfcbHPlaTD79GE+DgworUET0
jzcqnreX0mjw/L5vwt14Yn95hc6J59Mg/7B8+xTRf9pGsnarVTI8VXKax7KW
Bqd/u7vqxeKILah3LqiVBsw7v72pfUmsr+nD9rweGlwfay40if5PfeYq6vxC
g8XVMxfUiX54gfNN9AqdBnNeLOf5iX6Zd3Vle4hQPejL1mxeG4oj56U85WLL
ehAVPMZtRfT/0KZzwr0P66FcLq/YmTgvpCcOrDA9rof8BG5rK+I8QXJ06t/h
y3DPeR7S+bB62G/XRrMgzh/HYi01+8rqIYt2wEDbGUdrVLaZrlnfALq6auHN
d4n4dA/yv5LVAO6F3dhZDRyl1U/rnS5pgCVRy+a+szhCWzQllUkN0B5m6bas
jqOOO+/p0g0N8LQ3mjSnRvTPQq4K4Y4G+Lay/suHEzg6PftsZnC1Ae7HCATY
Hib6y40nl2y1GsFa9cE765044skcFDXTZ1hq+fjEFdNG+PHuzKKsJHHeOJdQ
eNqqEe6tEUv8LU70h6g/nsoOjTC7T5rCtwVHjw9UCYv4MZze7Jb/+xXD1Vt7
/5lLbYQ58QJlZj4cdVod1RzKaQQx/Yn5NB6ifpXGCH0oI+ZL1WKWJs6XbBxL
IzjGsLDe1dzipkbgpFPiqtiJ+pNc4v6uqxFYneI4CthwpP5t8/nYoUY4/OPE
Vh0WHBkddxIMmm6E8FPKceQ/GLIP7hh6vNgI5syD8md/Y8i/VynblqkJonMa
Jj8vYyhB9oWrGVcT6G7bebzsJ4aKnOfP6GxqAtvxjQFSCxjizX3wSESlCcLv
/Sh3ncQQScK6911AE7wpDdi90IohaVbTRIpsM0SYVuxTId4fIoN+dIQoNQN/
iiZtMg5DbELB664fZ9guUer4Do1mWJnGxO8Q7yP9e8rt6brNcFae7RfrC+J+
PYEzQp7NwGVZZ9boTdyfXjdl2dkMRcXZ26stMWQr/TJm7ckW0OdfiRnZjaG3
NiMFVmdaILFJ6fvlXRjqy5NrbtFsgcH9lIEaSeI8/9NlQkm7BSi5nesqtmFI
U5XCGqvfAm0nl7SFhDG0S/u7tZxNC4DK51wfLuJ+Vy0wiG4BXnNZtoUxMtJq
Zh55N9sCO6aVJ8PekNF0wovwvO8tEEM7XHAvjowC7WROlf9sgYmRanneaDIi
kvMbebUFvKRUPL6HkhFN4HJiA0srpMrnt4YFkJHl2Mjlj+yt8PavOUqdmfvW
t4LdBSRy05uM3vqvzx3d2ArJYfEqI/+QkbphggldsBXmNluMvXIlo+MTxz4r
QitsSekRntUjowOsbh3oeSu8LpRABznJaIvyIvWjfBscSubjvGRBvN+npmSc
P9gG5+7KpgebkFCWoG4IOtoGSSwWax4ZkNAjHzZ7xRNtkPjXaov5+u/U24CU
526cdImEbAsfjLoZtsHrd56piUokRD0wwyrl2wYX1TgOoTUk5Cg/csyuvw0E
H9ftk02qQW0ybQU8we2g2bpV4Q61GqkYVn4aGfkAnHr61bItlagsrf5SglQH
lHgL6jC1lCIpj5omi386IWhP/2bLmQKU+KA7XpDcBVxbYls8CrIR92y3Q6tE
N8hzebWPY8lIJn3SW8alB36+5jLPaQxHVz22jt8u7wWmJaYjj25JIYdB5cu5
m/sgZLP2mcziF5Bi6LB+0LAf0jrXJ6xXTAHyOlOmTq0BIOsO9gluyYb0fcur
5KUBUBOVDuocLoDYvtRkyVeDEPm6zHDXXCmw6FCaODWGIGSsFfRNEJy0tHlR
tTgEfOt+fROyJ94T1+1cMxo5DJp6AIpjGGg+1P4ZrjYCon7yx9Te1oKgRUhE
wegI7KGnbMPNaVCyotuY5P0FdD/hCmq3G6FV77nflv2j8OPVsZbv91rgu2r3
LHP7KODWDr/Jcm0QOBndaes5Bifiu97dVPkAclKWltpS47BtZf3PpvMdkL5a
HcWCjUNpX+6TDpcuePUq8NzhBxOQmecwz7nUDVFUy+QhvklQEHl9NdTkM3CW
lT3hI01Cgd/2rtodA6CjEb7Ke28K7sXsX0hNGoQ0S3eJJzzTkMWNGs22D8ND
rR7qo4ppUGlpWX05MQJnqs5vGbkxA7ycVd2+r0ZhvunE2q2/Z6DX/C6HqsM4
bE7JcOxNn4WPg6XDPimTkBzJB6aZDMv7OrOPZjNc+aiv+W7eLPRceSq7hniu
81Zq0fQChjsM003sixm+eYFX5lfpLMzetPhj0DMJc+D41b2CYTeF3lIWNAvf
Bnl5N9EngVPy5JNnNQxHbko7vx6bBXuSyOG3S5OwfS0PfyhlFj4kVmsc+TMJ
2T8e9gjUzUJUWtf2eN4pUJn4lBRTzzC1G6zFm2bBP5U1KVJqCnQbUhSTWxge
qly3Kt3OcFbH3acOy7MQs1Nnp0P+FKhxyITwaNKhXpjU/2JiGiRvjev2XWCY
pfqtSNZlOkyQlOWy1s7AoMidQXcdhquddr7V0mf4dfsX663X6HAeXXA9ITMD
j+VS9s8YMmwUcOtnhTHDKmOSVYFmdBhZ0hzZqDkDIqeGnxqaM7wUn3hujwXD
n5ZMN6zcpcMLO2k82XoGSvQkPtbbMByVNxATa8uwI0+CidVDOgwn//o+5j8D
OneNdx51ZPgARWya6xHDfNv7crtd6bDJQcP7eeIMzLnHOaU/phPrrMAekzMD
zZ8MVV086SC25n6eUNEMZCmJsp73ooP77WPv6LQZCArtoW55xrD1TEzwhB+x
nvdi7gsMz4DGuWs6pYEMy6ZsEfZ7zjAn86d+gzA66DEf/TnEOgvjhtEp0i8Y
ri3Rt/oZRYfm3bX9M7tmIXXTZgVqDMPeth2LUXEM32p4UXEngeFT0rpPlJPo
wGp36Wu71ixs99p0lj2VYeaBdu7ONIYHjoa3p76nQx4f25Fxu1lAUdovHbMY
jv++0Vg9l2H3i61SggV0YLc9oNYQNguG70MmvxQxfJT9Uk5hKR345/cpDWfM
gvDNDY7eFQxvPMmVzNpOh5Nb9z023EKHubg6y/aPDDf98pVL6qLDnt1FDRdP
0iFT9+yCXQ/Dgbns5Sf7GLbirvXgG6RD0a5JL6Z7RNxZ+qgPDTMsg59enzfK
MIfEmjbPCTqobbDvf/OSDmNuWNTlaYYpXU+NJOgMpyiekvz6lQ6jn36qjdbQ
wSuEZaJ6nuGb0zVZIT8YPnnW095kiQ5GWmxMgcRzSSQfPyK/SodY2qn9bYv0
v/+bzUFd4lNPVuL6f8+4o/0=
            "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, 
         "PlotRange" -> {{0., 1.}, {-0.17000958048559234`, 
          1.0000033435009519`}}, "Frame" -> {{True, True}, {True, True}}, 
         "AxesOrigin" -> {0, 0}, "ImageSize" -> {300, 180.}, 
         "Axes" -> {False, False}, 
         "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
         "AspectRatio" -> 0.6, "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            FaceForm[
             Opacity[0.4]], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}], 
            Thickness[0.01]], 
           Directive[
            Opacity[1.], 
            FaceForm[
             Opacity[0.4]], 
            RGBColor[0.9, 0.36, 0.054], 
            AbsoluteThickness[1.6], 
            Thickness[0.01]]}, 
         "HighlightLabelingFunctions" -> <|
          "CoordinatesToolOptions" -> Identity, 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         ParametricPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], 
    AspectRatio -> 0.6, Axes -> {False, False}, AxesLabel -> {None, None}, 
    AxesOrigin -> {0, 0}, BaseStyle -> 16, 
    DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, DisplayFunction -> 
    Identity, Epilog -> {
      Directive[
       GrayLevel[0.5]], 
      Dashing[{0, Small, Small, Small}], 
      TagBox[
       ConicHullRegionBox[{{0.375, 1}, {0.375, 2}}], "InfiniteLine"], 
      GeometricTransformationBox[
       InsetBox[
        BoxData[
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"p*\\!\\(\\*SubscriptBox[\\(F\\), \
\\(\[Beta]\\)]\\)(\\!\\(\\*SubscriptBox[\\(\[Mu]\\), \\(\[Beta]\\)]\\))\"", 
               FontFamily -> "Times", 14, 
               GrayLevel[0], TextAlignment -> Center, StripOnInput -> False], 
              TextForm]], "InlineText"], 
           Text[
            Style[
            "p*\!\(\*SubscriptBox[\(F\), \(\[Beta]\)]\)(\!\(\*SubscriptBox[\(\
\[Mu]\), \(\[Beta]\)]\))", FontFamily -> "Times", 14, 
             GrayLevel[0], TextAlignment -> Center]]], TraditionalForm]], {
        0.325, 0.45}], {{{0, -1}, {1, 0}}, Center}]}, 
    Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
       FormBox[
        TagBox["\"Climate Exposure\"", HoldForm], TraditionalForm], None}, {
       FormBox[
        TagBox["\"Market Exposure\"", HoldForm], TraditionalForm], None}}, 
    FrameStyle -> Automatic, 
    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
    GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
      GrayLevel[0.5, 0.4]], ImagePadding -> All, ImageSize -> 300, 
    LabelStyle -> {FontFamily -> "Times"}, 
    Method -> {
     "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "ScalingFunctions" -> None}, PlotInteractivity :> True, PlotLabel -> 
    FormBox["\"Achievable Exposures\"", TraditionalForm], 
    PlotRange -> {{0., 1.}, {-0.17000958048559234`, 1.0000033435009519`}}, 
    PlotRangeClipping -> True, PlotRangePadding -> {{
       Scaled[0.05], 
       Scaled[0.05]}, {
       Scaled[0.05], 
       Scaled[0.05]}}, Ticks -> {Automatic, Automatic}], 
   FormBox[
    FormBox[
     TemplateBox[{
       StyleBox["\"Voluntary Disclosure\"", 16, StripOnInput -> False], 
       StyleBox["\"Mandatory Disclosure\"", 16, StripOnInput -> False]}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    PointSize[0.5], 
                    EdgeForm[None], 
                    Opacity[1.], 
                    FaceForm[
                    Opacity[0.4]], 
                    RGBColor[0.9, 0.36, 0.054], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 12.5}, {40, 12.5}}]}}, {
                    Directive[
                    PointSize[0.5], 
                    EdgeForm[None], 
                    Opacity[1.], 
                    FaceForm[
                    Opacity[0.4]], 
                    RGBColor[0.9, 0.36, 0.054], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    PointSize[0.5], 
                    EdgeForm[None], 
                    Opacity[1.], 
                    FaceForm[
                    Opacity[0.4]], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    Thickness[0.09]], {
                    LineBox[{{0, 12.5}, {40, 12.5}}]}}, {
                    Directive[
                    PointSize[0.5], 
                    EdgeForm[None], 
                    Opacity[1.], 
                    FaceForm[
                    Opacity[0.4]], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"EdgeForm", "[", "None", "]"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"FaceForm", "[", 
                    RowBox[{"Opacity", "[", "0.4`", "]"}], "]"}], ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.9, 0.36, 0.054]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"EdgeForm", "[", "None", "]"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"FaceForm", "[", 
                    RowBox[{"Opacity", "[", "0.4`", "]"}], "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.365248, 0.427802, 0.758297]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}, {
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.945599847914337*^9, {3.972652710496722*^9, 3.97265272943382*^9}, {
   3.97265294203309*^9, 3.972652958318028*^9}},
 CellLabel->
  "Out[272]=",ExpressionUUID->"b6a8d417-60f6-47a3-a72d-f2dd6cab88f0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 8", "Section",
 CellChangeTimes->{{3.97260144882189*^9, 3.972601449637555*^9}, 
   3.972601577143546*^9},ExpressionUUID->"44a422f4-e493-4c3b-8f91-\
f4dcd0d008f0"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "following", " ", "function", " ", "takes", " ", "the", " ", 
   "equilibrium", " ", "threshold", " ", "and", " ", "outputs", " ", 
   "investor", " ", "holdings"}], "*)"}]], "Input",
 CellChangeTimes->{{3.9455248199186907`*^9, 
  3.945524831675506*^9}},ExpressionUUID->"9bf89daf-fddb-486a-927e-\
227194688b43"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MVPartial", "[", 
   RowBox[{
   "L_", ",", "H_", ",", "\[Sigma]C_", ",", "\[Sigma]M_", ",", "zG_", ",", 
    "zB_", ",", "\[Kappa]_", ",", "\[Lambda]G_", ",", 
    RowBox[{"\[Tau]_", "?", "NumericQ"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "T", ",", "\[Beta]fn", ",", "f", ",", "sol", ",", "UpperCond", ",", 
      "LowerCond", ",", "j", ",", "dprob", ",", "ts"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"dprob", "=", 
      FractionBox[
       RowBox[{"\[Tau]", "-", "L"}], 
       RowBox[{"H", "-", "L"}]]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Beta]fn", "[", "j_", "]"}], "=", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"InverseCDF", "[", 
            RowBox[{
             RowBox[{"UniformDistribution", "[", 
              RowBox[{"{", 
               RowBox[{"L", ",", "H"}], "}"}], "]"}], ",", "j"}], "]"}], ",", 
           
           RowBox[{"j", "<", "dprob"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Tau]", "+", "H"}], "2"], ",", 
           RowBox[{"j", ">=", "dprob"}]}], "}"}]}], "}"}], "]"}]}], ";", "\n", 
     RowBox[{
      RowBox[{"UpperCond", "[", 
       RowBox[{"T_", "?", "NumericQ"}], "]"}], ":=", 
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{
              RowBox[{"-", 
               FractionBox["1", "2"]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "T"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"H", "+", "\[Tau]"}], ")"}]}], 
             RowBox[{
              RowBox[{"dprob", "\[GreaterEqual]", "1"}], "||", 
              RowBox[{"dprob", "\[LessEqual]", "0"}], "||", 
              RowBox[{
               RowBox[{"dprob", "-", "T"}], "\[LessEqual]", "0"}], "||", 
              RowBox[{"T", "\[LessEqual]", "0"}]}]},
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"H", "-", 
                RowBox[{"dprob", " ", "H"}], "+", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "H"}], "+", 
                RowBox[{"2", " ", "dprob", " ", "L"}], "-", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "L"}], "-", 
                RowBox[{"2", " ", "L", " ", "T"}], "-", 
                RowBox[{"H", " ", 
                 SuperscriptBox["T", "2"]}], "+", 
                RowBox[{"L", " ", 
                 SuperscriptBox["T", "2"]}], "+", "\[Tau]", "-", 
                RowBox[{"dprob", " ", "\[Tau]"}]}], ")"}]}], 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->True]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"LowerCond", "[", 
       RowBox[{"T_", "?", "NumericQ"}], "]"}], ":=", 
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "L", " ", "T"}], "+", 
                RowBox[{"H", " ", 
                 SuperscriptBox["T", "2"]}], "-", 
                RowBox[{"L", " ", 
                 SuperscriptBox["T", "2"]}]}], ")"}]}], 
             RowBox[{
              RowBox[{"0", "<", "dprob", "<", "1"}], "&&", 
              RowBox[{
               RowBox[{"dprob", "-", "T"}], "\[GreaterEqual]", "0"}], "&&", 
              RowBox[{"T", ">", "0"}]}]},
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "dprob"}], " ", "H"}], "+", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "H"}], "+", 
                RowBox[{"2", " ", "dprob", " ", "L"}], "-", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "L"}], "+", 
                RowBox[{"H", " ", "T"}], "-", 
                RowBox[{"dprob", " ", "\[Tau]"}], "+", 
                RowBox[{"T", " ", "\[Tau]"}]}], ")"}]}], 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->True]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True]}], ";", "\n", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"T_", "?", "NumericQ"}], "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Beta]fn", "[", "T", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["\[Kappa]", "\[Lambda]G"], 
           RowBox[{"LowerCond", "[", "T", "]"}]}], "+", "zG", "-", 
          RowBox[{
           FractionBox["\[Kappa]", 
            RowBox[{"1", "-", "\[Lambda]G"}]], 
           RowBox[{"UpperCond", "[", "T", "]"}]}], "-", "zB"}], ")"}], 
        SuperscriptBox["\[Sigma]C", "2"]}], "+", 
       RowBox[{"\[Kappa]", 
        RowBox[{"(", 
         FractionBox[
          RowBox[{"T", "-", "\[Lambda]G"}], 
          RowBox[{"\[Lambda]G", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Lambda]G"}], ")"}]}]], ")"}], 
        SuperscriptBox["\[Sigma]M", "2"]}]}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"dprob", "-", ".000000001"}], "]"}], "<", "0"}], ")"}], "&&", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"dprob", "+", ".000000001"}], "]"}], ">", "0"}], ")"}]}], ",", 
       RowBox[{"sol", "=", "dprob"}], ",", 
       RowBox[{"sol", "=", "\"\<Q\>\""}]}], "]"}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"sol", "==", "\"\<Q\>\""}], ",", 
         RowBox[{"(", 
          RowBox[{"ts", "/.", 
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"f", "[", "ts", "]"}], "==", "0"}], ",", 
             RowBox[{"{", 
              RowBox[{"ts", ",", ".5", ",", "0.001", ",", ".999"}], "}"}]}], 
            "]"}]}], ")"}], ",", "sol"}], "]"}], ",", "dprob", ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["\[Kappa]", 
            RowBox[{"1", "-", "\[Lambda]G"}]], 
           RowBox[{"UpperCond", "[", "\[Lambda]G", "]"}]}], "+", "zB"}], 
         ")"}], "-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["\[Kappa]", "\[Lambda]G"], 
           RowBox[{"LowerCond", "[", "\[Lambda]G", "]"}]}], "+", "zG"}], 
         ")"}]}]}], "}"}]}]}], "]"}]}]], "Code",
 CellChangeTimes->{{3.944570863993402*^9, 3.944571111891869*^9}, {
  3.944571143822392*^9, 3.944571222472123*^9}, {3.944571270356412*^9, 
  3.944571270839972*^9}, {3.944571326603794*^9, 3.944571449436805*^9}, {
  3.944571534168666*^9, 3.944571607644902*^9}, {3.944571982050767*^9, 
  3.944571988682086*^9}, {3.9445720255028257`*^9, 3.944572030904868*^9}, {
  3.9445720686709347`*^9, 3.944572070660666*^9}, {3.945014070205715*^9, 
  3.945014089448447*^9}, {3.945015634679179*^9, 3.945015654990142*^9}, {
  3.945015701993342*^9, 3.9450157183226748`*^9}, {3.9450158480361233`*^9, 
  3.9450158499335833`*^9}, {3.945015888673317*^9, 3.945015909528491*^9}, {
  3.945016142371216*^9, 3.945016149519067*^9}, {3.945469197526239*^9, 
  3.945469200969461*^9}, {3.9455397988228207`*^9, 3.9455398017192783`*^9}},
 CellLabel->
  "In[273]:=",ExpressionUUID->"b192c15d-0350-4399-a352-2f16282cfa66"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Get", " ", "risk", " ", "exposures", " ", "given", " ", "disclosure", " ", 
   "threshold"}], "*)"}]], "Input",
 CellChangeTimes->{{3.9454457352728043`*^9, 3.945445742476512*^9}, {
  3.945524813515818*^9, 
  3.9455248405231133`*^9}},ExpressionUUID->"e678420e-59b9-4090-b483-\
bd9ac46bff44"],

Cell[BoxData[
 RowBox[{
  RowBox[{"mnfnVerrech", "[", 
   RowBox[{
   "L_", ",", "H_", ",", "\[Sigma]C_", ",", "\[Sigma]M_", ",", "zG_", ",", 
    "zB_", ",", "\[Kappa]_", ",", "\[Lambda]G_", ",", 
    RowBox[{"\[Tau]_", "?", "NumericQ"}], ",", "c_", ",", "\[Mu]C_"}], "]"}], 
  ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "T", ",", "\[Beta]fn", ",", "f", ",", "sol", ",", "UpperCond", ",", 
      "LowerCond", ",", "j", ",", "dprob", ",", "ts", ",", "BND"}], "}"}], ",",
     "\n", 
    RowBox[{
     RowBox[{"dprob", "=", 
      FractionBox[
       RowBox[{"\[Tau]", "-", "L"}], 
       RowBox[{"H", "-", "L"}]]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Beta]fn", "[", "j_", "]"}], "=", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"InverseCDF", "[", 
            RowBox[{
             RowBox[{"UniformDistribution", "[", 
              RowBox[{"{", 
               RowBox[{"L", ",", "H"}], "}"}], "]"}], ",", "j"}], "]"}], ",", 
           
           RowBox[{"j", "<=", "dprob"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Tau]", "+", "H"}], "2"], ",", 
           RowBox[{"j", ">", "dprob"}]}], "}"}]}], "}"}], "]"}]}], ";", "\n", 
     
     RowBox[{
      RowBox[{"UpperCond", "[", 
       RowBox[{"T_", "?", "NumericQ"}], "]"}], ":=", 
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{
              RowBox[{"-", 
               FractionBox["1", "2"]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "T"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"H", "+", "\[Tau]"}], ")"}]}], 
             RowBox[{
              RowBox[{"dprob", "\[GreaterEqual]", "1"}], "||", 
              RowBox[{"dprob", "\[LessEqual]", "0"}], "||", 
              RowBox[{
               RowBox[{"dprob", "-", "T"}], "\[LessEqual]", "0"}], "||", 
              RowBox[{"T", "\[LessEqual]", "0"}]}]},
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"H", "-", 
                RowBox[{"dprob", " ", "H"}], "+", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "H"}], "+", 
                RowBox[{"2", " ", "dprob", " ", "L"}], "-", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "L"}], "-", 
                RowBox[{"2", " ", "L", " ", "T"}], "-", 
                RowBox[{"H", " ", 
                 SuperscriptBox["T", "2"]}], "+", 
                RowBox[{"L", " ", 
                 SuperscriptBox["T", "2"]}], "+", "\[Tau]", "-", 
                RowBox[{"dprob", " ", "\[Tau]"}]}], ")"}]}], 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->True]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"LowerCond", "[", 
       RowBox[{"T_", "?", "NumericQ"}], "]"}], ":=", 
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "L", " ", "T"}], "+", 
                RowBox[{"H", " ", 
                 SuperscriptBox["T", "2"]}], "-", 
                RowBox[{"L", " ", 
                 SuperscriptBox["T", "2"]}]}], ")"}]}], 
             RowBox[{
              RowBox[{"0", "<", "dprob", "<", "1"}], "&&", 
              RowBox[{
               RowBox[{"dprob", "-", "T"}], "\[GreaterEqual]", "0"}], "&&", 
              RowBox[{"T", ">", "0"}]}]},
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "dprob"}], " ", "H"}], "+", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "H"}], "+", 
                RowBox[{"2", " ", "dprob", " ", "L"}], "-", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "L"}], "+", 
                RowBox[{"H", " ", "T"}], "-", 
                RowBox[{"dprob", " ", "\[Tau]"}], "+", 
                RowBox[{"T", " ", "\[Tau]"}]}], ")"}]}], 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->True]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True]}], ";", "\n", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"T_", "?", "NumericQ"}], "]"}], ":=", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Beta]fn", "[", "T", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           FractionBox["\[Kappa]", "\[Lambda]G"], 
           RowBox[{"LowerCond", "[", "T", "]"}]}], "+", "zG", "-", 
          RowBox[{
           FractionBox["\[Kappa]", 
            RowBox[{"1", "-", "\[Lambda]G"}]], 
           RowBox[{"UpperCond", "[", "T", "]"}]}], "-", "zB"}], ")"}], 
        SuperscriptBox["\[Sigma]C", "2"]}], "+", 
       RowBox[{"\[Kappa]", 
        RowBox[{"(", 
         FractionBox[
          RowBox[{"T", "-", "\[Lambda]G"}], 
          RowBox[{"\[Lambda]G", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Lambda]G"}], ")"}]}]], ")"}], 
        SuperscriptBox["\[Sigma]M", "2"]}]}]}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"dprob", "-", ".000000001"}], "]"}], "<", "0"}], ")"}], "&&", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"dprob", "+", ".000000001"}], "]"}], ">", "0"}], ")"}]}], ",", 
       RowBox[{"sol", "=", "dprob"}], ",", 
       RowBox[{"sol", "=", "\"\<Q\>\""}]}], "]"}], ";", "\n", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"sol", "==", "\"\<Q\>\""}], ",", 
       RowBox[{"sol", "=", 
        RowBox[{"(", 
         RowBox[{"ts", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"f", "[", "ts", "]"}], "==", "0"}], ",", 
            RowBox[{"{", 
             RowBox[{"ts", ",", ".5", ",", "0.001", ",", ".999"}], "}"}]}], 
           "]"}]}], ")"}]}], ",", "sol"}], "]"}], ";", "\n", 
     RowBox[{"BND", "=", 
      FractionBox[
       RowBox[{"\[Tau]", "+", "H"}], "2"]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"sol", "<", "dprob"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Mu]C", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox["\[Kappa]", 
                 RowBox[{"1", "-", "\[Lambda]G"}]], 
                RowBox[{"UpperCond", "[", "sol", "]"}]}], "+", "zB"}], ")"}], 
             
             SuperscriptBox["\[Sigma]C", "2"]}]}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{"\[Tau]", "-", "BND"}], ")"}]}], "-", "c"}], ",", "\n", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Mu]C", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox["\[Kappa]", "\[Lambda]G"], 
                RowBox[{"LowerCond", "[", "sol", "]"}]}], "+", "zG"}], ")"}], 
             
             SuperscriptBox["\[Sigma]C", "2"]}]}], ")"}], "*", "\[Tau]"}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Mu]C", "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                FractionBox["\[Kappa]", 
                 RowBox[{"1", "-", "\[Lambda]G"}]], 
                RowBox[{"UpperCond", "[", "sol", "]"}]}], "+", "zB"}], ")"}], 
             
             SuperscriptBox["\[Sigma]C", "2"]}]}], ")"}], "*", "BND"}], "-", 
         RowBox[{"\[Kappa]", "*", 
          RowBox[{"(", 
           FractionBox[
            RowBox[{"sol", "-", "\[Lambda]G"}], 
            RowBox[{"\[Lambda]G", "*", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Lambda]G"}], ")"}]}]], ")"}], 
          SuperscriptBox["\[Sigma]M", "2"]}], "-", "c"}]}], "]"}], "}"}]}]}], 
   "]"}]}]], "Code",
 CellChangeTimes->{{3.944570863993402*^9, 3.944571111891869*^9}, {
   3.944571143822392*^9, 3.944571222472123*^9}, {3.944571270356412*^9, 
   3.944571270839972*^9}, {3.944571326603794*^9, 3.944571449436805*^9}, {
   3.944571534168666*^9, 3.944571607644902*^9}, {3.944571982050767*^9, 
   3.944571988682086*^9}, {3.9445720255028257`*^9, 3.944572030904868*^9}, {
   3.9445720686709347`*^9, 3.944572070660666*^9}, {3.945014070205715*^9, 
   3.945014089448447*^9}, {3.945015634679179*^9, 3.945015654990142*^9}, {
   3.945015701993342*^9, 3.9450157183226748`*^9}, {3.9450158480361233`*^9, 
   3.9450158499335833`*^9}, {3.945015888673317*^9, 3.945015909528491*^9}, {
   3.945016142371216*^9, 3.945016149519067*^9}, {3.945463422754847*^9, 
   3.9454635312649727`*^9}, {3.945463587423994*^9, 3.945463857684929*^9}, {
   3.94546749223081*^9, 3.945467496150772*^9}, {3.945467562648137*^9, 
   3.945467563160811*^9}, {3.9454678027408533`*^9, 3.945467812008092*^9}, 
   3.945467987474028*^9, 3.9454683815244017`*^9, {3.945468413273054*^9, 
   3.945468418349321*^9}, {3.945468631052231*^9, 3.945468675137267*^9}, 
   3.945468709838191*^9, {3.945468763025675*^9, 3.945468767415949*^9}, {
   3.945468821018667*^9, 3.945468821479351*^9}, {3.9455396572377853`*^9, 
   3.945539685835421*^9}, 3.945539761587759*^9},
 CellLabel->
  "In[274]:=",ExpressionUUID->"c3a9c14a-4a9a-4273-ab43-a493d892bedf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"eqSol", "[", 
    RowBox[{
    "L_", ",", "H_", ",", "\[Sigma]C_", ",", "\[Sigma]M_", ",", "zG_", ",", 
     "zB_", ",", "\[Kappa]_", ",", "\[Lambda]G_", ",", "c_", ",", "\[Mu]C_"}],
     "]"}], ":=", 
   RowBox[{"tc", "/.", 
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"mnfnVerrech", "[", 
        RowBox[{
        "L", ",", "H", ",", "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", 
         "zB", ",", "\[Kappa]", ",", "\[Lambda]G", ",", "tc", ",", "c", ",", 
         "\[Mu]C"}], "]"}], "==", "0"}], ",", 
      RowBox[{"{", 
       RowBox[{"tc", ",", "2.1", ",", "1", ",", "3"}], "}"}]}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   StyleBox[
    RowBox[{
     RowBox[{"Off", "[", 
      RowBox[{"FindRoot", "::", "reged"}], "]"}], ";"}], "MessageName"], 
   "]"}], ";"}]}], "Code",
 CellChangeTimes->{{3.945469084662382*^9, 3.945469101662924*^9}, {
   3.94552486054714*^9, 3.945524860683655*^9}, {3.945539717281474*^9, 
   3.945539718361367*^9}, 3.945539757168644*^9},
 CellLabel->
  "In[275]:=",ExpressionUUID->"6a451c4c-9d4d-46f9-96c9-b6cf18c16439"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"L", "=", "1"}], ",", 
     RowBox[{"H", "=", "3"}], ",", 
     RowBox[{"\[Sigma]C", "=", ".75"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}], ",", 
     RowBox[{"\[Mu]C", "=", 
      RowBox[{"-", ".25"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ppts", "=", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"xp", ",", 
         FractionBox[
          RowBox[{
           RowBox[{"eqSol", "[", 
            RowBox[{
            "L", ",", "H", ",", "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",",
              "zB", ",", "\[Kappa]", ",", "\[Lambda]G", ",", "xp", ",", 
             "\[Mu]C"}], "]"}], "-", "L"}], 
          RowBox[{"H", "-", "L"}]], ",", 
         RowBox[{
          RowBox[{"MVPartial", "[", 
           RowBox[{
           "L", ",", "H", ",", "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",", 
            "zB", ",", "\[Kappa]", ",", "\[Lambda]G", ",", 
            RowBox[{"eqSol", "[", 
             RowBox[{
             "L", ",", "H", ",", "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",",
               "zB", ",", "\[Kappa]", ",", "\[Lambda]G", ",", "xp", ",", 
              "\[Mu]C"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"xp", ",", ".8", ",", "2.5", ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2.5", "-", ".8"}], ")"}], "/", "200"}]}], "}"}]}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"line1Points", "=", 
     RowBox[{"ppts", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{"First", " ", "and", " ", "second", " ", "elements"}], "*)"}], 
    "\n", 
    RowBox[{"line2Points", "=", 
     RowBox[{"ppts", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{"First", " ", "and", " ", "third", " ", "elements"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"line1Points", ",", "line2Points"}], "}"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", 
          RowBox[{"Solid", ",", 
           RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"Dashed", ",", 
           RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}]}], "}"}]}], ",", 
      RowBox[{"BaseStyle", "->", "16"}], ",", 
      RowBox[{"ImageSize", "->", "300"}], ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", "\"\<Disclosure Cost c\>\"", "}"}]}], ",", 
      RowBox[{"AspectRatio", "->", ".6"}], ",", 
      RowBox[{"PlotRange", "->", "Full"}], ",", 
      RowBox[{"PlotLegends", "->", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            
            RowBox[{"\"\<Proportion of Firms that Disclose \
\!\(\*SubscriptBox[\(F\), \(\[Beta]\)]\)(\[ScriptCapitalT])\>\"", ",", "16"}],
             "]"}], ",", 
           RowBox[{"Style", "[", 
            
            RowBox[{"\"\<Holdings Threshold \!\(\*SuperscriptBox[\(T\), \
\(VD\)]\)\>\"", ",", "16"}], "]"}]}], "}"}], ",", "Below"}], "]"}]}], ",", 
      RowBox[{"PlotLabel", "->", "\"\<Disclosure Equilibrium\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
           RowBox[{"InfiniteLine", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1.655", ",", "1"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1.655", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
           RowBox[{"Inset", "[", 
            RowBox[{
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<mandate improves\\nrisk sharing\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "12",
                 ",", "Black", ",", 
                RowBox[{"TextAlignment", "->", "Center"}]}], "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"2.05", ",", ".5"}], "}"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1.74", ",", ".42"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"1.74", "+", "0.7"}], ",", "0.42"}], "}"}]}], "}"}], 
           "]"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"Inset", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              
              RowBox[{"\"\<green investors hold\\nonly disclosing firms\>\"", 
               ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "12", 
               ",", "Black", ",", 
               RowBox[{"TextAlignment", "->", "Center"}]}], "]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"1.25", ",", ".07"}], "}"}]}], "]"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1.55", ",", ".14"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"1.55", "-", "0.7"}], ",", "0.14"}], "}"}]}], "}"}], 
           "]"}], "}"}]}], "}"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.945469257592531*^9, 3.9454692629369993`*^9}, {
   3.945469495844982*^9, 3.9454696188417892`*^9}, {3.945469671740649*^9, 
   3.9454697146597424`*^9}, {3.945469756522745*^9, 3.945469759428975*^9}, {
   3.9454699127018147`*^9, 3.945469944447699*^9}, {3.945470019334633*^9, 
   3.945470305326914*^9}, {3.9454703879045362`*^9, 3.945470633292234*^9}, {
   3.945470682193329*^9, 3.945470760049303*^9}, {3.945470810295434*^9, 
   3.945470881358614*^9}, {3.945471014429249*^9, 3.945471187252225*^9}, {
   3.945526151514773*^9, 3.9455261681267557`*^9}, {3.94552622496695*^9, 
   3.945526236386265*^9}, {3.945538759453553*^9, 3.945538767606032*^9}, 
   3.945540697982864*^9, 3.972652795255288*^9},
 CellLabel->
  "In[277]:=",ExpressionUUID->"93a0d442-6d74-464c-b537-44cd6e1e2783"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, 
     InterpretationBox[{
       TagBox[{{}, {}, 
         TagBox[{
           RGBColor[0.9, 0.36, 0.054], 
           PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], 
           Thickness[0.01], 
           CapForm["Butt"], 
           LineBox[CompressedData["
1:eJxFlgdUk9cCxyMK+hAtIkWfIuAAF74qtiiO/qNlVaardVAB10GfQkRcFQUV
H2C1CKK4AK11IyICIqJlr0BYYURWUBTZm0AC4X33JsfvO4eT8zs3udzxH9/M
nR4b9qhwOJxc5o983rxBniZ4a2SesjlTjyjdbbtX1jUhRfWac+3WevwTOe27
mjnN4IzsXXPIpB7Fs6oGT+9vBndg2ewx4+vRcP9WhkFMM/y6xqmGfRSjf55T
UFpfM9KaRZ/nJ4vxLzphC1QanuQkh4oxnZlN7UwLLGtOPnE4KMai2PCOh1kt
OFtue/GDhRjcH3Yk/azRiqzCGe5H9MTYkKh3vmV9KyaG1ERqttdhz8o6h0th
rbjg57PLNLIOx96RBTLjx2bOdXKsw4U1Lp+KZrUhZF9685lRdbjNrM7TrQ0T
nfZEP4ytRbRV/e/a0W24bD/Ws2BXLVLz7lok9LRBfc3jH3q0a1Fqt1Nzi1k7
ApbaDE7NqsHnIrLhdmgatSX/eKwGAxs/Mjtux7WpQb6759VgfMU93mr1DmiN
X2J+QVSNGeT4HDpwfbhkbMyFatDtXu2AbqcXv2xlNdaS5VV1IOKDTpCstQpP
ukqY/9iJOWWJG2ZGVGEpfTpxJ3ubjpVDFd56XZk65pdO6CUNiQ5wqmCZ0DMs
PN6JB1ER4SEv3qNQQhbUCaNIrmvizvfYYhaXc/QdMx78YU7t5Pcgu7Wq74Sx
n9+X0Zki/DeZTNiFR0eNouYfFaGXma3JqAsL9uV4OMwV4RTIBXQhZvv+pUcq
K8Es/qc/DnTB2F5DcjOwEpfT+pgb7kI0NzopZUUl/j3ml4mLYrtgstTx9OeW
CvxlQRbIjBt2r9EIr4Cxv45IIGHGp4aqmthXIJ5ZXeS0biSom+b+OlKOH9XJ
AXZj8XDFxVMx5ci2WRa4xqUbcR0nHO+5lsPxUpi71rlumH6Yrp2rVQ5mMmbD
3YgVvq1oTy8Dua24nG4sz3a+pX2kDK3riWCY8dejnFcYleEIOb6JPVgVdW+W
S4UQcrLdJT1Ii7D4fD5ACLq8jT3gBjc+fmomxCR6gD1IORd4sLi5FAp/9MDy
6MIlklulmE3kn9yDLLeCXl27UjyjfunB2u0eiWvlJTAl8lXpRY7dJG+35yVK
//RiHfcl/nQpgTW9kF7kmWweHTepROmnXjgaSrJEacWg8rnUi/wpNy6MHC7G
R+ovZlx9pb2hYTEONsoed5X0QjhUPcmmvEjpN2a843QZz78IPvvJBfdBWG9w
49ryIoyj/utD1KPzr4+XFiKkzZu54T5c/LtxeottodKPfbCV7KuePa8QfzNq
rrjXh+t/BCY5jC7Ef6g/+xBznR/lXivAKyK/pj4YVz997PtaoPRrPzKCbj88
HypALrne7/pxfYda+CkPgdK//dB2svZ1WycAPT6vfrgMvLKyNBSAbjesH8L+
O006HAHayfKS+hGwy8Lp/fsCpb/7ERdQc/VyfAE49JHgckPYRbPLBQikfpfg
i94N07L9BZh8LoVxtAReclngLosCpf8lSN5R7N2gXwBDKmgJrA0NVLdI8/Gc
5oEETss+TX0nzMdyOiHze4/J0TrP85X5IMHxkCtJroH5WKehstBfZwB+Fubf
R+7Kh5DmxQA0Rks1C1fn47cgYhBmXNPHsmtKvjI/BuB1+EqeajcfPC2ywAEY
NLaGaOTzMUjzZADJxaZXVR/wcZbYrXEAKWZa2Z0+fGW+DML4zbd6gq18hBI5
LxoE51RBUPhSvjJvBuFk9GaS8wQ+HhC5eA4ip3TzDa3GPCym+TOIUA113cSU
PLwm15E4iIZXZkEON/OUeTQITa1VXyoP54FPtjs8iMq7v+lussvDJipAKXwX
iQ1SjfJAp/tJinkx0mZ9Th720keKL/YiD54oF50PsxgHS6EZ7zlFLSIXJxi3
jYuSIqVEYiHUzwU5PZFAiupnR13f3s0Bs1lG0FL4BY74pM7Owbc0oGUI9bz+
Snw/GxEdZEIZLvet0ps+LxtzlxBFyyAW1uTynmThhadbcJu3DN7vXIrqjbOw
gsRfpAw8lTtW7s8zkU7iKk2GTVb7LXRMMmFL4uWTDJXcs3WiuAyUkzgYNwTt
3RELXy/LgDOx78Ih8MLdEJeUji/EbnZD6B1zejF/dTo8iT14Q9AIddeWp6RB
RuR8ZQiaomSOnXka/Ij8Eoag+6xGPTE7FRPohofg27jMGjapuEauVzaELZPn
CD4IUqBPrkNvGImzWl/8tSEFj8jxrRnGcutrk+RR/8CEGngY41pEhR1x7/CG
LM9/GI+6q3KmvX0Lc3qAw9C8Gm/kk5mMgnzyMPPVOU+eIXiDXyeShh2GeObL
xN7yJIgdSKDKYbBxL1dN/Br7gkkgyDHOe6JwfVMiekgdbZGjcoZeeEX3K3iT
+vhdjoCbDRlhQwlQJXEfLsfA7UteIWoJ+JPEc4oci88YlGVrxmMKDWg5XN74
fLN8ehzukPhTG4HBWjfbj4YvMZ/E1bwRuPXy4nIXx+IliRcbhseo81pWvsAq
EgfuI+Dt8H5obRWDTGLfYIZnlaim34+GPQ38Edw5HLzpwNsoVBJ7VDBcUnbh
UtkTuFI5MzyrRWLU/kiZ/xzu4tKc5uVjHyr0oc/hcpM1Y9MN7iv7gMP1bZ9w
O3vFPYVe1nK4Bv4v+80330UA7QcOV/zNMv3j4giFfvYwv98+3m3blFvKvuBw
XfyjXJc4hKGMTBfA4XI4C+4P+19R9gfz/Z3Pr/qcCwKth6fM+IkwYeeAv7JP
mPGtid878nwVeitgxhM8M1aXHlL2C8PmASfFdpY4RPTXSeZXPIq+GfWVpUSP
k1lW9A/LVJ+mLP9M+4hlqtetLJfQfmKZ6vcky9tpgLNM9RzBsuL9kGWq71SW
FX3GMrV3A8uKfmOZ2nOsyldW9B3L1F7zWVb0H8vUHrYsU/nvYJnK24NlRT+y
TOUZwrKiL1kmaYR4lhXvtyx3E39VsqzoU5ZPEr9JWVb06+ivTF+3ZrCs6FuW
qR+5LG+k/csy9eculqtpH7NM/fo/lhXv2ywvINfxiOUO2tcsUz/zWT5O+5tl
6u92lkcpdvWV/w9/PnhX
            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
         TagBox[{
           RGBColor[0.365248, 0.427802, 0.758297], 
           PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], 
           Thickness[0.01], 
           Dashing[{Small, Small}], 
           CapForm["Butt"], 
           LineBox[CompressedData["
1:eJxdlglUVNcdxp8ICBYtgqAFFRqixQqJxoASid+AokJAmoiKLeKCpsSqKCFR
o0aSaAA3BDRgBPeqUatoBRGpVZl9hkFBC7hUPUBZZIfZWTr3zuu75/Sdw+H8
znvzf/977/f9v/fbtUmfrbfhOE5h+SP/fz5OrhYERKVKe5dU4uqEP66b86oF
gTz/85TH+y/fbUUQz4/feW78dkOrcL/hryfE3oWtwu91vnGZD7XsviMt+Fa4
72mpZv/dW+G+/82CzotSxqKA+NJwpzbhfZ+VTNr39tM2zOJ5/ZxX0Ydy24R6
2+6RBtuE3+8PWd346J124fl8S3fJie3C89cWvvlm7LV2zOT5gfJMWHFvO67y
XB211jk2qANpPP/nEVlwB9bybFhSb1lxB2J4/lXNuS0fj+xEKM8TyfZFdyKE
Z7rcY50I5jmUtPec8eXuKssbuzCb55n06sJHPP8jJWe87TLGC4p7B55s7xLW
V6knDXUJ+xUbdEv+9T1Wj6x24Rv2/F/KSMFu4fk+S7WWKYx3gxxAt/A+S/Pz
DmzsFuodeai1nHA3PuT5N7bLRvvf7Bb2/2wYaZDV80tzr9PoGRdZujvl0SP0
M3ck2cAe4X2yT2ZlhKzuwTye/3Aod7PLDz2I4NlSzLLgHsTxTE7rlrwHm3hu
+5QIpgcHef6KbN/oXuF9g2S5MxjT9pb0Cv2PoRvYK6zP6g/2vA+Rfxl7/m/U
L+z5QCJfmz5Bb1b/9An7t4geSJ9Qz+onxlQ+hxjXU3/1Cfu3qcn8S3dV3//5
jfGeDeSAtUI/DtR/WqFedvsuywlrcfB8k+fbyP/5UYtI/RcvfHwrcd6i5ppz
WuQdyCiNHl6J96g/tSjMU13d/G8NbhP5tWjh9+LKL6l3NLxfdRBn5l/cd1QD
BTne93XIi7cv2J2k4f2rw9i4RamJERrQ7UvRYbXh9sIFkzWgy83V4YnudIs7
p0EHaa9Uh/SEsLhnzyp4f+twK/3lsSNFFeDopceRhtyDQUcqkEH9rkfzpOOB
TzdUwPWH+xZH65EyaM5ICKvg/a9HWfzjXQ1eFZhMBa3HosnedrEmNa7TeaBH
3KzG8feeqDGbFrT8Psn1mvt1NT8f9NienVO6JkONCCebaWnuBuwNm//hqQQ1
ntB5YYDTcJNz5cdqrMwkBrHcd96zoHucmp8fBqR8maO061Fhiwtp0ADvprZs
J7UKRjpPDCh7HHjM7oIK3xO7NRlwP8hF1rVHxc8XI/zuuk3SrFDhKJGzvxHc
7orMgpkqft4YETfl7phVo1S4QOSSbIS8eulxlyYlptP5Y8RRp5ETSu4rcYcc
R4kRDbeDMqN/VvLzyAhnl+Dm2i+VUJHlDhhRe2blhJgoJWKoAE1I9X/t/WCK
ErTcPBN8C02tXpwSn9PLhObFdUlb6hTouii1ONiE72TTsuyKFNhhcZvDVROG
Idl9XJ4CZPfqNCaI5vfop+xUwLJYi6BNeNWoCw+IV8CNDmgzqm42e4eGKHCy
kxQ0o/5iVFbUuwr8bgZRtBk1ExTXl49Q4EZyYlb7LjNKCj2zVrfK8REZf6fM
KA/wiUiskKOcjKuHZojyn3VuLpQjkoyXRjPsX67ITcmR419kHDj0Y3z906U7
vpZjFbHvtH5UpZwW7V4hRzOxW1Q//Cb4bkoNliOZ2GNLPzJHG7q+95LDTOSc
04/LriVv9trIsZfIr7gfjhv9lv7YKMMouuB+7C8OWJMml+EncrzmfuQ9feSZ
fkUGL3IckwYQXu1+Iv2wDJfI9oUMYK4kWJu+VYYPqIEHsPJ6jigjRoa7pL20
AcR8np6TMUuG+XQDBxCw9Zztfg8ZKtTkGkBoa/rl/QNSLB9NEnYAy1cZThx4
LcXraDJQB3HohrrzYLkUX2SRgTAI+z5z2eELUvSSOIodRGRErkdWhhS7SHx8
M4gXEqXX0Y1S2JFxXzAIx3kv63OjpThMxvP9QSwNm/5t/gdSjKMDehC1VbA/
6ybFaTL+7IewJvpsziWDBFPJuPIdwo5lDnMLn0vwdzJePhlC0LHgiXfuSRBM
xsHmITie8wkvPyOBhNg3awgldXfrNHslWEwH/hDO+k9sev5nCWqJPWqGYGu7
I6M1QoI1VM5DqHb0qDP5S/j5z4kkDus6nMZIrPrw4kR1ZdVvvPvEfB5wotRL
g6rAGrFVL6GcaHpztmRxqRjpNB84Ub7d8qbEArFVP+s5kb9yasS+VDGfF5zo
uLPNiPMJYjwl5dI50eyfOgIlC8R8fnCiwyq33uapYtB4uMKJ3M4Xxfx6lJjP
E050cr3PV7O7yq16q+BEnttUm9ZVl/P5wom2vTcjNqe4HFuJ/ro40dg5N1zn
3Cjn82aYwCaiR1fG1vxhTPUZyDic5hFjqtcVjKtoPjGm+t3J+E90gDOmej7J
2Pp9yJjq+wFja54xpvZuYGzNN8bUniNsBLbmHWNqr6mMrfnHmNojkjGVfzxj
Ku8kxtZ8ZEzlmc3YmpeMyTRCEWPr9y3jHuKvWsbWPGW8k/jNxNiar8MFpp9b
Exlb85Yx9aOI8RKav4ypPxMYv6B5zJj69UfG1u9txr8nx3GJcSfNa8bUzyrG
22l+M6b+7mA8jOa5rcD/BfQ6Dgg=
            "]]}, Annotation[#, "Charting`Private`Tag#2"]& ]}, {
        "WolframDynamicHighlight", <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
       StyleBox[
        DynamicBox[
         (Charting`HighlightActionBox["DynamicHighlight", {}, 
          Slot["HighlightElements"], 
          Slot["LayoutOptions"], 
          Slot["Meta"], 
          Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
             Annotation[{
               Hue[0.67, 0.6, 0.6], 
               Directive[
                PointSize[
                 Rational[1, 90]], 
                RGBColor[0.9, 0.36, 0.054], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Thickness[0.01]], 
               Line[CompressedData["
1:eJxFlgdUk9cCxyMK+hAtIkWfIuAAF74qtiiO/qNlVaardVAB10GfQkRcFQUV
H2C1CKK4AK11IyICIqJlr0BYYURWUBTZm0AC4X33JsfvO4eT8zs3udzxH9/M
nR4b9qhwOJxc5o983rxBniZ4a2SesjlTjyjdbbtX1jUhRfWac+3WevwTOe27
mjnN4IzsXXPIpB7Fs6oGT+9vBndg2ewx4+vRcP9WhkFMM/y6xqmGfRSjf55T
UFpfM9KaRZ/nJ4vxLzphC1QanuQkh4oxnZlN7UwLLGtOPnE4KMai2PCOh1kt
OFtue/GDhRjcH3Yk/azRiqzCGe5H9MTYkKh3vmV9KyaG1ERqttdhz8o6h0th
rbjg57PLNLIOx96RBTLjx2bOdXKsw4U1Lp+KZrUhZF9685lRdbjNrM7TrQ0T
nfZEP4ytRbRV/e/a0W24bD/Ws2BXLVLz7lok9LRBfc3jH3q0a1Fqt1Nzi1k7
ApbaDE7NqsHnIrLhdmgatSX/eKwGAxs/Mjtux7WpQb6759VgfMU93mr1DmiN
X2J+QVSNGeT4HDpwfbhkbMyFatDtXu2AbqcXv2xlNdaS5VV1IOKDTpCstQpP
ukqY/9iJOWWJG2ZGVGEpfTpxJ3ubjpVDFd56XZk65pdO6CUNiQ5wqmCZ0DMs
PN6JB1ER4SEv3qNQQhbUCaNIrmvizvfYYhaXc/QdMx78YU7t5Pcgu7Wq74Sx
n9+X0Zki/DeZTNiFR0eNouYfFaGXma3JqAsL9uV4OMwV4RTIBXQhZvv+pUcq
K8Es/qc/DnTB2F5DcjOwEpfT+pgb7kI0NzopZUUl/j3ml4mLYrtgstTx9OeW
CvxlQRbIjBt2r9EIr4Cxv45IIGHGp4aqmthXIJ5ZXeS0biSom+b+OlKOH9XJ
AXZj8XDFxVMx5ci2WRa4xqUbcR0nHO+5lsPxUpi71rlumH6Yrp2rVQ5mMmbD
3YgVvq1oTy8Dua24nG4sz3a+pX2kDK3riWCY8dejnFcYleEIOb6JPVgVdW+W
S4UQcrLdJT1Ii7D4fD5ACLq8jT3gBjc+fmomxCR6gD1IORd4sLi5FAp/9MDy
6MIlklulmE3kn9yDLLeCXl27UjyjfunB2u0eiWvlJTAl8lXpRY7dJG+35yVK
//RiHfcl/nQpgTW9kF7kmWweHTepROmnXjgaSrJEacWg8rnUi/wpNy6MHC7G
R+ovZlx9pb2hYTEONsoed5X0QjhUPcmmvEjpN2a843QZz78IPvvJBfdBWG9w
49ryIoyj/utD1KPzr4+XFiKkzZu54T5c/LtxeottodKPfbCV7KuePa8QfzNq
rrjXh+t/BCY5jC7Ef6g/+xBznR/lXivAKyK/pj4YVz997PtaoPRrPzKCbj88
HypALrne7/pxfYda+CkPgdK//dB2svZ1WycAPT6vfrgMvLKyNBSAbjesH8L+
O006HAHayfKS+hGwy8Lp/fsCpb/7ERdQc/VyfAE49JHgckPYRbPLBQikfpfg
i94N07L9BZh8LoVxtAReclngLosCpf8lSN5R7N2gXwBDKmgJrA0NVLdI8/Gc
5oEETss+TX0nzMdyOiHze4/J0TrP85X5IMHxkCtJroH5WKehstBfZwB+Fubf
R+7Kh5DmxQA0Rks1C1fn47cgYhBmXNPHsmtKvjI/BuB1+EqeajcfPC2ywAEY
NLaGaOTzMUjzZADJxaZXVR/wcZbYrXEAKWZa2Z0+fGW+DML4zbd6gq18hBI5
LxoE51RBUPhSvjJvBuFk9GaS8wQ+HhC5eA4ip3TzDa3GPCym+TOIUA113cSU
PLwm15E4iIZXZkEON/OUeTQITa1VXyoP54FPtjs8iMq7v+lussvDJipAKXwX
iQ1SjfJAp/tJinkx0mZ9Th720keKL/YiD54oF50PsxgHS6EZ7zlFLSIXJxi3
jYuSIqVEYiHUzwU5PZFAiupnR13f3s0Bs1lG0FL4BY74pM7Owbc0oGUI9bz+
Snw/GxEdZEIZLvet0ps+LxtzlxBFyyAW1uTynmThhadbcJu3DN7vXIrqjbOw
gsRfpAw8lTtW7s8zkU7iKk2GTVb7LXRMMmFL4uWTDJXcs3WiuAyUkzgYNwTt
3RELXy/LgDOx78Ih8MLdEJeUji/EbnZD6B1zejF/dTo8iT14Q9AIddeWp6RB
RuR8ZQiaomSOnXka/Ij8Eoag+6xGPTE7FRPohofg27jMGjapuEauVzaELZPn
CD4IUqBPrkNvGImzWl/8tSEFj8jxrRnGcutrk+RR/8CEGngY41pEhR1x7/CG
LM9/GI+6q3KmvX0Lc3qAw9C8Gm/kk5mMgnzyMPPVOU+eIXiDXyeShh2GeObL
xN7yJIgdSKDKYbBxL1dN/Br7gkkgyDHOe6JwfVMiekgdbZGjcoZeeEX3K3iT
+vhdjoCbDRlhQwlQJXEfLsfA7UteIWoJ+JPEc4oci88YlGVrxmMKDWg5XN74
fLN8ehzukPhTG4HBWjfbj4YvMZ/E1bwRuPXy4nIXx+IliRcbhseo81pWvsAq
EgfuI+Dt8H5obRWDTGLfYIZnlaim34+GPQ38Edw5HLzpwNsoVBJ7VDBcUnbh
UtkTuFI5MzyrRWLU/kiZ/xzu4tKc5uVjHyr0oc/hcpM1Y9MN7iv7gMP1bZ9w
O3vFPYVe1nK4Bv4v+80330UA7QcOV/zNMv3j4giFfvYwv98+3m3blFvKvuBw
XfyjXJc4hKGMTBfA4XI4C+4P+19R9gfz/Z3Pr/qcCwKth6fM+IkwYeeAv7JP
mPGtid878nwVeitgxhM8M1aXHlL2C8PmASfFdpY4RPTXSeZXPIq+GfWVpUSP
k1lW9A/LVJ+mLP9M+4hlqtetLJfQfmKZ6vcky9tpgLNM9RzBsuL9kGWq71SW
FX3GMrV3A8uKfmOZ2nOsyldW9B3L1F7zWVb0H8vUHrYsU/nvYJnK24NlRT+y
TOUZwrKiL1kmaYR4lhXvtyx3E39VsqzoU5ZPEr9JWVb06+ivTF+3ZrCs6FuW
qR+5LG+k/csy9eculqtpH7NM/fo/lhXv2ywvINfxiOUO2tcsUz/zWT5O+5tl
6u92lkcpdvWV/w9/PnhX
                "]]}, "Charting`Private`Tag#1"], 
             Annotation[{
               Hue[0.9060679774997897, 0.6, 0.6], 
               Directive[
                PointSize[
                 Rational[1, 90]], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}], 
                Thickness[0.01]], 
               Line[CompressedData["
1:eJxdlglUVNcdxp8ICBYtgqAFFRqixQqJxoASid+AokJAmoiKLeKCpsSqKCFR
o0aSaAA3BDRgBPeqUatoBRGpVZl9hkFBC7hUPUBZZIfZWTr3zuu75/Sdw+H8
znvzf/977/f9v/fbtUmfrbfhOE5h+SP/fz5OrhYERKVKe5dU4uqEP66b86oF
gTz/85TH+y/fbUUQz4/feW78dkOrcL/hryfE3oWtwu91vnGZD7XsviMt+Fa4
72mpZv/dW+G+/82CzotSxqKA+NJwpzbhfZ+VTNr39tM2zOJ5/ZxX0Ydy24R6
2+6RBtuE3+8PWd346J124fl8S3fJie3C89cWvvlm7LV2zOT5gfJMWHFvO67y
XB211jk2qANpPP/nEVlwB9bybFhSb1lxB2J4/lXNuS0fj+xEKM8TyfZFdyKE
Z7rcY50I5jmUtPec8eXuKssbuzCb55n06sJHPP8jJWe87TLGC4p7B55s7xLW
V6knDXUJ+xUbdEv+9T1Wj6x24Rv2/F/KSMFu4fk+S7WWKYx3gxxAt/A+S/Pz
DmzsFuodeai1nHA3PuT5N7bLRvvf7Bb2/2wYaZDV80tzr9PoGRdZujvl0SP0
M3ck2cAe4X2yT2ZlhKzuwTye/3Aod7PLDz2I4NlSzLLgHsTxTE7rlrwHm3hu
+5QIpgcHef6KbN/oXuF9g2S5MxjT9pb0Cv2PoRvYK6zP6g/2vA+Rfxl7/m/U
L+z5QCJfmz5Bb1b/9An7t4geSJ9Qz+onxlQ+hxjXU3/1Cfu3qcn8S3dV3//5
jfGeDeSAtUI/DtR/WqFedvsuywlrcfB8k+fbyP/5UYtI/RcvfHwrcd6i5ppz
WuQdyCiNHl6J96g/tSjMU13d/G8NbhP5tWjh9+LKL6l3NLxfdRBn5l/cd1QD
BTne93XIi7cv2J2k4f2rw9i4RamJERrQ7UvRYbXh9sIFkzWgy83V4YnudIs7
p0EHaa9Uh/SEsLhnzyp4f+twK/3lsSNFFeDopceRhtyDQUcqkEH9rkfzpOOB
TzdUwPWH+xZH65EyaM5ICKvg/a9HWfzjXQ1eFZhMBa3HosnedrEmNa7TeaBH
3KzG8feeqDGbFrT8Psn1mvt1NT8f9NienVO6JkONCCebaWnuBuwNm//hqQQ1
ntB5YYDTcJNz5cdqrMwkBrHcd96zoHucmp8fBqR8maO061Fhiwtp0ADvprZs
J7UKRjpPDCh7HHjM7oIK3xO7NRlwP8hF1rVHxc8XI/zuuk3SrFDhKJGzvxHc
7orMgpkqft4YETfl7phVo1S4QOSSbIS8eulxlyYlptP5Y8RRp5ETSu4rcYcc
R4kRDbeDMqN/VvLzyAhnl+Dm2i+VUJHlDhhRe2blhJgoJWKoAE1I9X/t/WCK
ErTcPBN8C02tXpwSn9PLhObFdUlb6hTouii1ONiE72TTsuyKFNhhcZvDVROG
Idl9XJ4CZPfqNCaI5vfop+xUwLJYi6BNeNWoCw+IV8CNDmgzqm42e4eGKHCy
kxQ0o/5iVFbUuwr8bgZRtBk1ExTXl49Q4EZyYlb7LjNKCj2zVrfK8REZf6fM
KA/wiUiskKOcjKuHZojyn3VuLpQjkoyXRjPsX67ITcmR419kHDj0Y3z906U7
vpZjFbHvtH5UpZwW7V4hRzOxW1Q//Cb4bkoNliOZ2GNLPzJHG7q+95LDTOSc
04/LriVv9trIsZfIr7gfjhv9lv7YKMMouuB+7C8OWJMml+EncrzmfuQ9feSZ
fkUGL3IckwYQXu1+Iv2wDJfI9oUMYK4kWJu+VYYPqIEHsPJ6jigjRoa7pL20
AcR8np6TMUuG+XQDBxCw9Zztfg8ZKtTkGkBoa/rl/QNSLB9NEnYAy1cZThx4
LcXraDJQB3HohrrzYLkUX2SRgTAI+z5z2eELUvSSOIodRGRErkdWhhS7SHx8
M4gXEqXX0Y1S2JFxXzAIx3kv63OjpThMxvP9QSwNm/5t/gdSjKMDehC1VbA/
6ybFaTL+7IewJvpsziWDBFPJuPIdwo5lDnMLn0vwdzJePhlC0LHgiXfuSRBM
xsHmITie8wkvPyOBhNg3awgldXfrNHslWEwH/hDO+k9sev5nCWqJPWqGYGu7
I6M1QoI1VM5DqHb0qDP5S/j5z4kkDus6nMZIrPrw4kR1ZdVvvPvEfB5wotRL
g6rAGrFVL6GcaHpztmRxqRjpNB84Ub7d8qbEArFVP+s5kb9yasS+VDGfF5zo
uLPNiPMJYjwl5dI50eyfOgIlC8R8fnCiwyq33uapYtB4uMKJ3M4Xxfx6lJjP
E050cr3PV7O7yq16q+BEnttUm9ZVl/P5wom2vTcjNqe4HFuJ/ro40dg5N1zn
3Cjn82aYwCaiR1fG1vxhTPUZyDic5hFjqtcVjKtoPjGm+t3J+E90gDOmej7J
2Pp9yJjq+wFja54xpvZuYGzNN8bUniNsBLbmHWNqr6mMrfnHmNojkjGVfzxj
Ku8kxtZ8ZEzlmc3YmpeMyTRCEWPr9y3jHuKvWsbWPGW8k/jNxNiar8MFpp9b
Exlb85Yx9aOI8RKav4ypPxMYv6B5zJj69UfG1u9txr8nx3GJcSfNa8bUzyrG
22l+M6b+7mA8jOa5rcD/BfQ6Dgg=
                "]]}, "Charting`Private`Tag#2"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
            "LayoutOptions" -> <|
             "PanelPlotLayout" -> <||>, 
              "PlotRange" -> {{0.7645833333333353, 2.5000000000000004`}, {
                0, 0.5470330673637274}}, 
              "Frame" -> {{True, True}, {True, True}}, 
              "AxesOrigin" -> {0.7645833333333353, 0}, 
              "ImageSize" -> {300, 180.}, "Axes" -> {False, False}, 
              "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
              "AspectRatio" -> 0.6, "DefaultStyle" -> {
                Directive[
                 PointSize[
                  Rational[1, 90]], 
                 RGBColor[0.365248, 0.427802, 0.758297], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6], 
                 Dashing[{Small, Small}], 
                 Thickness[0.01]], 
                Directive[
                 PointSize[
                  Rational[1, 90]], 
                 RGBColor[0.9, 0.36, 0.054], 
                 CapForm["Butt"], 
                 AbsoluteThickness[1.6], 
                 Thickness[0.01]]}, 
              "HighlightLabelingFunctions" -> <|
               "CoordinatesToolOptions" -> ({
                  (Identity[#]& )[
                   Part[#, 1]], 
                  (Identity[#]& )[
                   Part[#, 2]]}& ), 
                "ScalingFunctions" -> {{Identity, Identity}, {
                  Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
              False|>, 
            "Meta" -> <|
             "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
              "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, 
             "PlotRange" -> {{0.7645833333333353, 2.5000000000000004`}, {
               0, 0.5470330673637274}}, 
             "Frame" -> {{True, True}, {True, True}}, 
             "AxesOrigin" -> {0.7645833333333353, 0}, 
             "ImageSize" -> {300, 180.}, "Axes" -> {False, False}, 
             "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
             "AspectRatio" -> 0.6, "DefaultStyle" -> {
               Directive[
                PointSize[
                 Rational[1, 90]], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}], 
                Thickness[0.01]], 
               Directive[
                PointSize[
                 Rational[1, 90]], 
                RGBColor[0.9, 0.36, 0.054], 
                CapForm["Butt"], 
                AbsoluteThickness[1.6], 
                Thickness[0.01]]}, 
             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>], 
         ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
          4.503599627370496*^15, -4.503599627370496*^15}}], Selectable -> 
        False]}, 
      Annotation[{{{}, {}, 
         Annotation[{
           Hue[0.67, 0.6, 0.6], 
           Directive[
            PointSize[
             Rational[1, 90]], 
            RGBColor[0.9, 0.36, 0.054], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Thickness[0.01]], 
           Line[CompressedData["
1:eJxFlgdUk9cCxyMK+hAtIkWfIuAAF74qtiiO/qNlVaardVAB10GfQkRcFQUV
H2C1CKK4AK11IyICIqJlr0BYYURWUBTZm0AC4X33JsfvO4eT8zs3udzxH9/M
nR4b9qhwOJxc5o983rxBniZ4a2SesjlTjyjdbbtX1jUhRfWac+3WevwTOe27
mjnN4IzsXXPIpB7Fs6oGT+9vBndg2ewx4+vRcP9WhkFMM/y6xqmGfRSjf55T
UFpfM9KaRZ/nJ4vxLzphC1QanuQkh4oxnZlN7UwLLGtOPnE4KMai2PCOh1kt
OFtue/GDhRjcH3Yk/azRiqzCGe5H9MTYkKh3vmV9KyaG1ERqttdhz8o6h0th
rbjg57PLNLIOx96RBTLjx2bOdXKsw4U1Lp+KZrUhZF9685lRdbjNrM7TrQ0T
nfZEP4ytRbRV/e/a0W24bD/Ws2BXLVLz7lok9LRBfc3jH3q0a1Fqt1Nzi1k7
ApbaDE7NqsHnIrLhdmgatSX/eKwGAxs/Mjtux7WpQb6759VgfMU93mr1DmiN
X2J+QVSNGeT4HDpwfbhkbMyFatDtXu2AbqcXv2xlNdaS5VV1IOKDTpCstQpP
ukqY/9iJOWWJG2ZGVGEpfTpxJ3ubjpVDFd56XZk65pdO6CUNiQ5wqmCZ0DMs
PN6JB1ER4SEv3qNQQhbUCaNIrmvizvfYYhaXc/QdMx78YU7t5Pcgu7Wq74Sx
n9+X0Zki/DeZTNiFR0eNouYfFaGXma3JqAsL9uV4OMwV4RTIBXQhZvv+pUcq
K8Es/qc/DnTB2F5DcjOwEpfT+pgb7kI0NzopZUUl/j3ml4mLYrtgstTx9OeW
CvxlQRbIjBt2r9EIr4Cxv45IIGHGp4aqmthXIJ5ZXeS0biSom+b+OlKOH9XJ
AXZj8XDFxVMx5ci2WRa4xqUbcR0nHO+5lsPxUpi71rlumH6Yrp2rVQ5mMmbD
3YgVvq1oTy8Dua24nG4sz3a+pX2kDK3riWCY8dejnFcYleEIOb6JPVgVdW+W
S4UQcrLdJT1Ii7D4fD5ACLq8jT3gBjc+fmomxCR6gD1IORd4sLi5FAp/9MDy
6MIlklulmE3kn9yDLLeCXl27UjyjfunB2u0eiWvlJTAl8lXpRY7dJG+35yVK
//RiHfcl/nQpgTW9kF7kmWweHTepROmnXjgaSrJEacWg8rnUi/wpNy6MHC7G
R+ovZlx9pb2hYTEONsoed5X0QjhUPcmmvEjpN2a843QZz78IPvvJBfdBWG9w
49ryIoyj/utD1KPzr4+XFiKkzZu54T5c/LtxeottodKPfbCV7KuePa8QfzNq
rrjXh+t/BCY5jC7Ef6g/+xBznR/lXivAKyK/pj4YVz997PtaoPRrPzKCbj88
HypALrne7/pxfYda+CkPgdK//dB2svZ1WycAPT6vfrgMvLKyNBSAbjesH8L+
O006HAHayfKS+hGwy8Lp/fsCpb/7ERdQc/VyfAE49JHgckPYRbPLBQikfpfg
i94N07L9BZh8LoVxtAReclngLosCpf8lSN5R7N2gXwBDKmgJrA0NVLdI8/Gc
5oEETss+TX0nzMdyOiHze4/J0TrP85X5IMHxkCtJroH5WKehstBfZwB+Fubf
R+7Kh5DmxQA0Rks1C1fn47cgYhBmXNPHsmtKvjI/BuB1+EqeajcfPC2ywAEY
NLaGaOTzMUjzZADJxaZXVR/wcZbYrXEAKWZa2Z0+fGW+DML4zbd6gq18hBI5
LxoE51RBUPhSvjJvBuFk9GaS8wQ+HhC5eA4ip3TzDa3GPCym+TOIUA113cSU
PLwm15E4iIZXZkEON/OUeTQITa1VXyoP54FPtjs8iMq7v+lussvDJipAKXwX
iQ1SjfJAp/tJinkx0mZ9Th720keKL/YiD54oF50PsxgHS6EZ7zlFLSIXJxi3
jYuSIqVEYiHUzwU5PZFAiupnR13f3s0Bs1lG0FL4BY74pM7Owbc0oGUI9bz+
Snw/GxEdZEIZLvet0ps+LxtzlxBFyyAW1uTynmThhadbcJu3DN7vXIrqjbOw
gsRfpAw8lTtW7s8zkU7iKk2GTVb7LXRMMmFL4uWTDJXcs3WiuAyUkzgYNwTt
3RELXy/LgDOx78Ih8MLdEJeUji/EbnZD6B1zejF/dTo8iT14Q9AIddeWp6RB
RuR8ZQiaomSOnXka/Ij8Eoag+6xGPTE7FRPohofg27jMGjapuEauVzaELZPn
CD4IUqBPrkNvGImzWl/8tSEFj8jxrRnGcutrk+RR/8CEGngY41pEhR1x7/CG
LM9/GI+6q3KmvX0Lc3qAw9C8Gm/kk5mMgnzyMPPVOU+eIXiDXyeShh2GeObL
xN7yJIgdSKDKYbBxL1dN/Br7gkkgyDHOe6JwfVMiekgdbZGjcoZeeEX3K3iT
+vhdjoCbDRlhQwlQJXEfLsfA7UteIWoJ+JPEc4oci88YlGVrxmMKDWg5XN74
fLN8ehzukPhTG4HBWjfbj4YvMZ/E1bwRuPXy4nIXx+IliRcbhseo81pWvsAq
EgfuI+Dt8H5obRWDTGLfYIZnlaim34+GPQ38Edw5HLzpwNsoVBJ7VDBcUnbh
UtkTuFI5MzyrRWLU/kiZ/xzu4tKc5uVjHyr0oc/hcpM1Y9MN7iv7gMP1bZ9w
O3vFPYVe1nK4Bv4v+80330UA7QcOV/zNMv3j4giFfvYwv98+3m3blFvKvuBw
XfyjXJc4hKGMTBfA4XI4C+4P+19R9gfz/Z3Pr/qcCwKth6fM+IkwYeeAv7JP
mPGtid878nwVeitgxhM8M1aXHlL2C8PmASfFdpY4RPTXSeZXPIq+GfWVpUSP
k1lW9A/LVJ+mLP9M+4hlqtetLJfQfmKZ6vcky9tpgLNM9RzBsuL9kGWq71SW
FX3GMrV3A8uKfmOZ2nOsyldW9B3L1F7zWVb0H8vUHrYsU/nvYJnK24NlRT+y
TOUZwrKiL1kmaYR4lhXvtyx3E39VsqzoU5ZPEr9JWVb06+ivTF+3ZrCs6FuW
qR+5LG+k/csy9eculqtpH7NM/fo/lhXv2ywvINfxiOUO2tcsUz/zWT5O+5tl
6u92lkcpdvWV/w9/PnhX
            "]]}, "Charting`Private`Tag#1"], 
         Annotation[{
           Hue[0.9060679774997897, 0.6, 0.6], 
           Directive[
            PointSize[
             Rational[1, 90]], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            CapForm["Butt"], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}], 
            Thickness[0.01]], 
           Line[CompressedData["
1:eJxdlglUVNcdxp8ICBYtgqAFFRqixQqJxoASid+AokJAmoiKLeKCpsSqKCFR
o0aSaAA3BDRgBPeqUatoBRGpVZl9hkFBC7hUPUBZZIfZWTr3zuu75/Sdw+H8
znvzf/977/f9v/fbtUmfrbfhOE5h+SP/fz5OrhYERKVKe5dU4uqEP66b86oF
gTz/85TH+y/fbUUQz4/feW78dkOrcL/hryfE3oWtwu91vnGZD7XsviMt+Fa4
72mpZv/dW+G+/82CzotSxqKA+NJwpzbhfZ+VTNr39tM2zOJ5/ZxX0Ydy24R6
2+6RBtuE3+8PWd346J124fl8S3fJie3C89cWvvlm7LV2zOT5gfJMWHFvO67y
XB211jk2qANpPP/nEVlwB9bybFhSb1lxB2J4/lXNuS0fj+xEKM8TyfZFdyKE
Z7rcY50I5jmUtPec8eXuKssbuzCb55n06sJHPP8jJWe87TLGC4p7B55s7xLW
V6knDXUJ+xUbdEv+9T1Wj6x24Rv2/F/KSMFu4fk+S7WWKYx3gxxAt/A+S/Pz
DmzsFuodeai1nHA3PuT5N7bLRvvf7Bb2/2wYaZDV80tzr9PoGRdZujvl0SP0
M3ck2cAe4X2yT2ZlhKzuwTye/3Aod7PLDz2I4NlSzLLgHsTxTE7rlrwHm3hu
+5QIpgcHef6KbN/oXuF9g2S5MxjT9pb0Cv2PoRvYK6zP6g/2vA+Rfxl7/m/U
L+z5QCJfmz5Bb1b/9An7t4geSJ9Qz+onxlQ+hxjXU3/1Cfu3qcn8S3dV3//5
jfGeDeSAtUI/DtR/WqFedvsuywlrcfB8k+fbyP/5UYtI/RcvfHwrcd6i5ppz
WuQdyCiNHl6J96g/tSjMU13d/G8NbhP5tWjh9+LKL6l3NLxfdRBn5l/cd1QD
BTne93XIi7cv2J2k4f2rw9i4RamJERrQ7UvRYbXh9sIFkzWgy83V4YnudIs7
p0EHaa9Uh/SEsLhnzyp4f+twK/3lsSNFFeDopceRhtyDQUcqkEH9rkfzpOOB
TzdUwPWH+xZH65EyaM5ICKvg/a9HWfzjXQ1eFZhMBa3HosnedrEmNa7TeaBH
3KzG8feeqDGbFrT8Psn1mvt1NT8f9NienVO6JkONCCebaWnuBuwNm//hqQQ1
ntB5YYDTcJNz5cdqrMwkBrHcd96zoHucmp8fBqR8maO061Fhiwtp0ADvprZs
J7UKRjpPDCh7HHjM7oIK3xO7NRlwP8hF1rVHxc8XI/zuuk3SrFDhKJGzvxHc
7orMgpkqft4YETfl7phVo1S4QOSSbIS8eulxlyYlptP5Y8RRp5ETSu4rcYcc
R4kRDbeDMqN/VvLzyAhnl+Dm2i+VUJHlDhhRe2blhJgoJWKoAE1I9X/t/WCK
ErTcPBN8C02tXpwSn9PLhObFdUlb6hTouii1ONiE72TTsuyKFNhhcZvDVROG
Idl9XJ4CZPfqNCaI5vfop+xUwLJYi6BNeNWoCw+IV8CNDmgzqm42e4eGKHCy
kxQ0o/5iVFbUuwr8bgZRtBk1ExTXl49Q4EZyYlb7LjNKCj2zVrfK8REZf6fM
KA/wiUiskKOcjKuHZojyn3VuLpQjkoyXRjPsX67ITcmR419kHDj0Y3z906U7
vpZjFbHvtH5UpZwW7V4hRzOxW1Q//Cb4bkoNliOZ2GNLPzJHG7q+95LDTOSc
04/LriVv9trIsZfIr7gfjhv9lv7YKMMouuB+7C8OWJMml+EncrzmfuQ9feSZ
fkUGL3IckwYQXu1+Iv2wDJfI9oUMYK4kWJu+VYYPqIEHsPJ6jigjRoa7pL20
AcR8np6TMUuG+XQDBxCw9Zztfg8ZKtTkGkBoa/rl/QNSLB9NEnYAy1cZThx4
LcXraDJQB3HohrrzYLkUX2SRgTAI+z5z2eELUvSSOIodRGRErkdWhhS7SHx8
M4gXEqXX0Y1S2JFxXzAIx3kv63OjpThMxvP9QSwNm/5t/gdSjKMDehC1VbA/
6ybFaTL+7IewJvpsziWDBFPJuPIdwo5lDnMLn0vwdzJePhlC0LHgiXfuSRBM
xsHmITie8wkvPyOBhNg3awgldXfrNHslWEwH/hDO+k9sev5nCWqJPWqGYGu7
I6M1QoI1VM5DqHb0qDP5S/j5z4kkDus6nMZIrPrw4kR1ZdVvvPvEfB5wotRL
g6rAGrFVL6GcaHpztmRxqRjpNB84Ub7d8qbEArFVP+s5kb9yasS+VDGfF5zo
uLPNiPMJYjwl5dI50eyfOgIlC8R8fnCiwyq33uapYtB4uMKJ3M4Xxfx6lJjP
E050cr3PV7O7yq16q+BEnttUm9ZVl/P5wom2vTcjNqe4HFuJ/ro40dg5N1zn
3Cjn82aYwCaiR1fG1vxhTPUZyDic5hFjqtcVjKtoPjGm+t3J+E90gDOmej7J
2Pp9yJjq+wFja54xpvZuYGzNN8bUniNsBLbmHWNqr6mMrfnHmNojkjGVfzxj
Ku8kxtZ8ZEzlmc3YmpeMyTRCEWPr9y3jHuKvWsbWPGW8k/jNxNiar8MFpp9b
Exlb85Yx9aOI8RKav4ypPxMYv6B5zJj69UfG1u9txr8nx3GJcSfNa8bUzyrG
22l+M6b+7mA8jOa5rcD/BfQ6Dgg=
            "]]}, "Charting`Private`Tag#2"]}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PanelPlotLayout" -> <||>, 
          "PlotRange" -> {{0.7645833333333353, 2.5000000000000004`}, {
            0, 0.5470330673637274}}, "Frame" -> {{True, True}, {True, True}}, 
          "AxesOrigin" -> {0.7645833333333353, 0}, "ImageSize" -> {300, 180.},
           "Axes" -> {False, False}, 
          "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
          "AspectRatio" -> 0.6, "DefaultStyle" -> {
            Directive[
             PointSize[
              Rational[1, 90]], 
             RGBColor[0.365248, 0.427802, 0.758297], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Dashing[{Small, Small}], 
             Thickness[0.01]], 
            Directive[
             PointSize[
              Rational[1, 90]], 
             RGBColor[0.9, 0.36, 0.054], 
             CapForm["Butt"], 
             AbsoluteThickness[1.6], 
             Thickness[0.01]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              (Identity[#]& )[
               Part[#, 1]], 
              (Identity[#]& )[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          ListLinePlot, "GroupHighlight" -> False|>|>, 
       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 0.6, 
    Axes -> {False, False}, AxesLabel -> {None, None}, 
    AxesOrigin -> {0.7645833333333353, 0}, BaseStyle -> 16, 
    DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, DisplayFunction -> 
    Identity, Epilog -> {{
       Directive[
        GrayLevel[0.5]], 
       Dashing[{0, Small, Small, Small}], 
       TagBox[
        ConicHullRegionBox[{{1.655, 1}, {1.655, 2}}], "InfiniteLine"], 
       InsetBox[
        BoxData[
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"mandate improves\\nrisk sharing\"", FontFamily -> "Times", 
               12, 
               GrayLevel[0], TextAlignment -> Center, StripOnInput -> False], 
              TextForm]], "InlineText"], 
           Text[
            Style["mandate improves\nrisk sharing", FontFamily -> "Times", 12, 
             GrayLevel[0], TextAlignment -> Center]]], TraditionalForm]], {
        2.05, 0.5}]}, {
       ArrowBox[{{1.74, 0.42}, {2.44, 0.42}}]}, {
       InsetBox[
        BoxData[
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"green investors hold\\nonly disclosing firms\"", FontFamily -> 
               "Times", 12, 
               GrayLevel[0], TextAlignment -> Center, StripOnInput -> False], 
              TextForm]], "InlineText"], 
           Text[
            Style[
            "green investors hold\nonly disclosing firms", FontFamily -> 
             "Times", 12, 
             GrayLevel[0], TextAlignment -> Center]]], TraditionalForm]], {
        1.25, 0.07}]}, {
       ArrowBox[{{1.55, 0.14}, {0.8500000000000001, 0.14}}]}}, 
    Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {
       FormBox[
        TagBox["\"Disclosure Cost c\"", HoldForm], TraditionalForm], None}}, 
    FrameStyle -> Automatic, 
    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
    GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
      GrayLevel[0.5, 0.4]], ImageSize -> 300, 
    LabelStyle -> {FontFamily -> "Times"}, 
    Method -> {
     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
        Directive[
         RGBColor[0.9, 0.36, 0.054], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.365248, 0.427802, 0.758297], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.945109, 0.593901, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.645957, 0.253192, 0.685109], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.285821, 0.56, 0.450773], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.7, 0.336, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.491486, 0.345109, 0.8], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.71788, 0.568653, 0.], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.70743, 0.224, 0.542415], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.287228, 0.490217, 0.664674], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[
         0.982289285128704, 0.5771321368979874, 0.011542503255145636`], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.5876740325800278, 0.2877284499870081, 0.7500695697462922], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.4262088601796793, 0.5581552810007578, 0.2777996730417023], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[0.9431487543762861, 0.414555896337833, 0.07140829055870854], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]], 
        Directive[
         RGBColor[
         0.41497437140121635`, 0.393632147507352, 0.7842993779115092], 
         CapForm["Butt"], 
         AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
      "IncludeHighlighting" -> Automatic, "HighlightStyle" -> Automatic, 
      "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentSet", 
      "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}}, PlotInteractivity :> True, PlotLabel -> 
    FormBox["\"Disclosure Equilibrium\"", TraditionalForm], 
    PlotRange -> {{0.7645833333333353, 2.5000000000000004`}, {
      0, 0.5470330673637274}}, PlotRangeClipping -> True, 
    PlotRangePadding -> {{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.02], 
       Scaled[0.05]}}, Ticks -> {Automatic, Automatic}], 
   FormBox[
    FormBox[
     TemplateBox[{
       StyleBox[
       "\"Proportion of Firms that Disclose \\!\\(\\*SubscriptBox[\\(F\\), \
\\(\[Beta]\\)]\\)(\[ScriptCapitalT])\"", 16, StripOnInput -> False], 
       StyleBox[
       "\"Holdings Threshold \\!\\(\\*SuperscriptBox[\\(T\\), \\(VD\\)]\\)\"",
         16, StripOnInput -> False]}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 12.5}, {40, 12.5}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.9, 0.36, 0.054], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
              
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    Thickness[0.09]], {
                    LineBox[{{0, 12.5}, {40, 12.5}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    CapForm["Butt"], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", 
                    FractionBox["1", "90"], "]"}], ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.9, 0.36, 0.054]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", 
                    FractionBox["1", "90"], "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.365248, 0.427802, 0.758297]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}, {
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.972601506879779*^9, 3.972653050599334*^9},
 CellLabel->
  "Out[277]=",ExpressionUUID->"ef3dca18-78c5-4be3-911b-765185eaba7d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FrontierV", "[", 
   RowBox[{
   "L_", ",", "H_", ",", "\[Sigma]C_", ",", "\[Sigma]M_", ",", "zG_", ",", 
    "zB_", ",", "\[Kappa]_", ",", "\[Lambda]G_", ",", "x_", ",", 
    RowBox[{"\[Tau]_", "?", "NumericQ"}], ",", "\[Mu]C_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "eqthresh", ",", "\[Beta]fn", ",", "upperb", ",", "UpperCond", ",", 
      "LowerCond", ",", "j", ",", "dprob"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"dprob", "=", 
      FractionBox[
       RowBox[{"\[Tau]", "-", "L"}], 
       RowBox[{"H", "-", "L"}]]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Beta]fn", "[", "j_", "]"}], "=", 
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"InverseCDF", "[", 
            RowBox[{
             RowBox[{"UniformDistribution", "[", 
              RowBox[{"{", 
               RowBox[{"L", ",", "H"}], "}"}], "]"}], ",", "j"}], "]"}], ",", 
           
           RowBox[{"j", "<=", "dprob"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Tau]", "+", "H"}], "2"], ",", 
           RowBox[{"j", ">", "dprob"}]}], "}"}]}], "}"}], "]"}]}], ";", "\n", 
     
     RowBox[{
      RowBox[{"UpperCond", "[", 
       RowBox[{"T_", "?", "NumericQ"}], "]"}], ":=", 
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{
              RowBox[{"-", 
               FractionBox["1", "2"]}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "T"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"H", "+", "\[Tau]"}], ")"}]}], 
             RowBox[{
              RowBox[{"dprob", "\[GreaterEqual]", "1"}], "||", 
              RowBox[{"dprob", "\[LessEqual]", "0"}], "||", 
              RowBox[{
               RowBox[{"dprob", "-", "T"}], "\[LessEqual]", "0"}], "||", 
              RowBox[{"T", "\[LessEqual]", "0"}]}]},
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"H", "-", 
                RowBox[{"dprob", " ", "H"}], "+", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "H"}], "+", 
                RowBox[{"2", " ", "dprob", " ", "L"}], "-", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "L"}], "-", 
                RowBox[{"2", " ", "L", " ", "T"}], "-", 
                RowBox[{"H", " ", 
                 SuperscriptBox["T", "2"]}], "+", 
                RowBox[{"L", " ", 
                 SuperscriptBox["T", "2"]}], "+", "\[Tau]", "-", 
                RowBox[{"dprob", " ", "\[Tau]"}]}], ")"}]}], 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->True]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"LowerCond", "[", 
       RowBox[{"T_", "?", "NumericQ"}], "]"}], ":=", 
      TagBox[GridBox[{
         {"\[Piecewise]", GridBox[{
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "L", " ", "T"}], "+", 
                RowBox[{"H", " ", 
                 SuperscriptBox["T", "2"]}], "-", 
                RowBox[{"L", " ", 
                 SuperscriptBox["T", "2"]}]}], ")"}]}], 
             RowBox[{
              RowBox[{"0", "<", "dprob", "<", "1"}], "&&", 
              RowBox[{
               RowBox[{"dprob", "-", "T"}], "\[GreaterEqual]", "0"}], "&&", 
              RowBox[{"T", ">", "0"}]}]},
            {
             RowBox[{
              FractionBox["1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "dprob"}], " ", "H"}], "+", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "H"}], "+", 
                RowBox[{"2", " ", "dprob", " ", "L"}], "-", 
                RowBox[{
                 SuperscriptBox["dprob", "2"], " ", "L"}], "+", 
                RowBox[{"H", " ", "T"}], "-", 
                RowBox[{"dprob", " ", "\[Tau]"}], "+", 
                RowBox[{"T", " ", "\[Tau]"}]}], ")"}]}], 
             TagBox["True",
              "PiecewiseDefault",
              AutoDelete->True]}
           },
           AllowedDimensions->{2, Automatic},
           Editable->True,
           GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
           GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.84]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}},
           Selectable->True]}
        },
        GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.35]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       "Piecewise",
       DeleteWithContents->True,
       Editable->False,
       SelectWithContents->True,
       Selectable->False,
       StripWrapperBoxes->True]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"UpperCond", "[", "x", "]"}], ",", 
       RowBox[{"LowerCond", "[", "x", "]"}], ",", 
       RowBox[{"\[Beta]fn", "[", "x", "]"}]}], "}"}]}]}], "]"}]}]], "Code",
 CellChangeTimes->{{3.9455250398039207`*^9, 3.9455251233164043`*^9}, 
   3.945525444083857*^9, 3.945525534673402*^9, 3.9455255846425858`*^9, {
   3.945525617440897*^9, 3.945525651534874*^9}, {3.945525741547958*^9, 
   3.945525742065814*^9}, 3.945525772098069*^9},
 CellLabel->
  "In[278]:=",ExpressionUUID->"5e2cb1ff-4a0c-484b-a292-0c7e05d3f287"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FrontierM", "[", 
   RowBox[{"L_", ",", "H_", ",", 
    RowBox[{"T_", "?", "NumericQ"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "\[Beta]fn", ",", "UpperCond", ",", "LowerCond", ",", "j", ",", 
      "dprob"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Beta]fn", "[", "j_", "]"}], "=", 
      RowBox[{"InverseCDF", "[", 
       RowBox[{
        RowBox[{"UniformDistribution", "[", 
         RowBox[{"{", 
          RowBox[{"L", ",", "H"}], "}"}], "]"}], ",", "j"}], "]"}]}], ";", 
     "\n", 
     RowBox[{"UpperCond", "=", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"H", "+", "L", "-", 
         RowBox[{"2", " ", "L", " ", "T"}], "-", 
         RowBox[{"H", " ", 
          SuperscriptBox["T", "2"]}], "+", 
         RowBox[{"L", " ", 
          SuperscriptBox["T", "2"]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"LowerCond", "=", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "L", " ", "T"}], "+", 
         RowBox[{"H", " ", 
          SuperscriptBox["T", "2"]}], "-", 
         RowBox[{"L", " ", 
          SuperscriptBox["T", "2"]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"UpperCond", ",", "LowerCond", ",", 
       RowBox[{"\[Beta]fn", "[", "T", "]"}]}], "}"}]}]}], "]"}]}]], "Code",
 CellChangeTimes->{{3.945525411633301*^9, 3.945525413688768*^9}, {
  3.945525503831211*^9, 3.945525509062707*^9}, {3.945525541931876*^9, 
  3.945525561522574*^9}},
 CellLabel->
  "In[279]:=",ExpressionUUID->"b2bc6f98-5afc-4400-9683-9922edf42f6b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"L", "=", "1"}], ",", 
     RowBox[{"H", "=", "3"}], ",", 
     RowBox[{"\[Sigma]C", "=", ".75"}], ",", 
     RowBox[{"\[Sigma]M", "=", "1"}], ",", 
     RowBox[{"zG", "=", "3"}], ",", 
     RowBox[{"zB", "=", "1"}], ",", 
     RowBox[{"\[Kappa]", "=", ".5"}], ",", 
     RowBox[{"\[Lambda]G", "=", ".5"}], ",", 
     RowBox[{"\[Mu]C", "=", 
      RowBox[{"-", ".25"}]}], ",", 
     RowBox[{"\[Tau]", "=", "1.5"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pdisc", "=", 
     FractionBox[
      RowBox[{"\[Tau]", "-", "L"}], 
      RowBox[{"H", "-", "L"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{"ParametricPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"T", ",", 
          RowBox[{"\[Kappa]", "*", 
           RowBox[{
            RowBox[{"FrontierV", "[", 
             RowBox[{
             "L", ",", "H", ",", "\[Sigma]C", ",", "\[Sigma]M", ",", "zG", ",",
               "zB", ",", "\[Kappa]", ",", "\[Lambda]G", ",", "T", ",", 
              "\[Tau]", ",", "\[Mu]C"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"T", ",", 
          RowBox[{"\[Kappa]", "*", 
           RowBox[{
            RowBox[{"FrontierM", "[", 
             RowBox[{"L", ",", "H", ",", "T"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"T", ",", ".01", ",", "1"}], "}"}], ",", 
      RowBox[{"ImageSize", "->", "315"}], ",", 
      RowBox[{"PlotTheme", "->", "\"\<Scientific\>\""}], ",", 
      RowBox[{"AspectRatio", "->", ".6"}], ",", 
      RowBox[{"FrameLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<Market Exposure\>\"", ",", "\"\<Climate Exposure\>\""}], 
        "}"}]}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", 
          RowBox[{"Solid", ",", 
           RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}], ",", 
         RowBox[{"Directive", "[", 
          RowBox[{"Dashed", ",", 
           RowBox[{"Thickness", "[", ".01", "]"}]}], "]"}]}], "}"}]}], ",", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Directive", "[", "Gray", "]"}], ",", "DotDashed", ",", 
         RowBox[{"InfiniteLine", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"pdisc", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"pdisc", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Rotate", "[", 
          RowBox[{
           RowBox[{"Inset", "[", 
            RowBox[{
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               
               RowBox[{"\"\<\!\(\*SubscriptBox[\(F\), \(\[Beta]\)]\)(\
\[ScriptCapitalT])\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "14",
                 ",", "Black", ",", 
                RowBox[{"TextAlignment", "->", "Center"}]}], "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"pdisc", "-", ".05"}], ",", ".45"}], "}"}]}], "]"}], ",", 
           RowBox[{"90", "Degree"}]}], "]"}]}], "}"}]}], ",", 
      RowBox[{"BaseStyle", "->", "16"}], ",", 
      RowBox[{"PlotLabel", "->", "\"\<Achievable Exposures\>\""}], ",", 
      RowBox[{"PlotLegends", "->", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Voluntary Disclosure\>\"", ",", "16"}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Mandatory Disclosure\>\"", ",", "16"}], "]"}]}], 
            "}"}], ",", 
           RowBox[{"LegendLayout", "->", 
            RowBox[{"{", 
             RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", 
         "Below"}], "]"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.945525680913795*^9, 3.945525873979582*^9}, {
   3.94552594618571*^9, 3.945525990903599*^9}, {3.945526026637792*^9, 
   3.945526129415471*^9}, {3.945526186214562*^9, 3.945526215019897*^9}, {
   3.945526257084194*^9, 3.9455262659306192`*^9}, 3.972652800155698*^9},
 CellLabel->
  "In[280]:=",ExpressionUUID->"26e3e341-c3b3-43b5-8420-72855ee6f7f4"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[
    InterpretationBox[{
      TagBox[{{{}, {}, 
         TagBox[{
           RGBColor[0.9, 0.36, 0.054], 
           Thickness[0.01], 
           Opacity[1.], 
           FaceForm[
            Opacity[0.4]], 
           LineBox[CompressedData["
1:eJxFj3s4FPgax4euzhEJZXXXliFLm0JbfFHYyqVcNqlOtO2UlqGOONiEUNtG
e2KrwWKR0JDozBJqzIxLxIxLw5DLuM00jJ/kUihnzvnjnPd53uf7PN/3/Tzv
+918JsD1B2UKhXJB0f/RcK1CB3FYDJSdYla4PA5CmkukWEM3Fh/vuGuVH70M
zk3XcNuyWFiNRnRi8jKWK80UZs3E4VGHODtxTwiS5FhNC/oZaxh9X5+tDkVh
TfOgzD8BFqVVRnniCARWzFqH7UhCk7mKm8/dGGTSN/Rc25KGEHFwK2PpbWSJ
xByVrjxUNnF/PGyQgpOG5vn5008QQ9uvdGJPFjqiPcvjhln4i91I6NRELs66
NUuibCrgU8XWlpx+DIMbiaFXM9iocNa/d/5lMXL1ZLcaPbjoFy9fE2nDQvoh
Oi/4czWMDjBTSXUZaqXeI96hdVDN2X7KU78SM7YL6Z0GDbClR9nVBbPhqal6
4DdmI361OvGqw54DwbxRij+rEYY2NZkrnDlwGHaasGM3osDwr3v3e3BgVnY7
Y7q1EcHFek+KvudA87Tmp2NzjVD77UZJUiQHTfm6LN1DTTieY6IR9YwDO1sD
aoakCV4fZSYjxlxUbD909R/vFHPRHRsLMy52af8oPDLXBLsMLe04Sy70pMwY
JXU+OvsfKH3pyAUlYYf4jBkf6nsXxs/7KniRefLWWD4SzeOpa7IVPNfz3acE
PuzjWo8FPuLiETP0W+F9PgbL339bX8xF8tXy6TgmH/1dVYGRVVxo+L5xOs3i
w7Ym4OGbOi5uuH7KNmfzceveTPoeARchW+EmbVXwY0nCqR4uxtS889ndfIwH
5Wt5DHNB+xCpxJDwIRUztP4l56Jb/IfnxXd8NOz+Xqg9xYV7A+fxwTk+GIFL
vULmFfudFxf9U1kA2na2Q80SHvRclE2uLBNAdWd1nmglDwyLLXEeGgIcB9+f
os/Dq8V8AXO1AA31za8Xm/JAaQ5bu3idANbftVmqgIfzvi1FxdsEMPQXrVh1
jAeL5Kgu9X0CfE4eKNhynQfhXO+OepoAmdMzcnsJD6tepHZZVQggLdhEj39Y
jZt2q7+mnmtG8LpLdF1qLZLi2W5rc1oQb3Xxp8qpl8gssbYULrTCKKlZJXPh
Ffwy2kut3F5jkjq00UmRy6VuK7P2thCeUfl/sH2aYdZ0kKYjacf8Ms2/zw20
YLf61vs/64uw7olBQ5hjGyyMhb9yojux8H68X7f1NT5opq3Na+9CiFADaa7t
EOxav6FIuxsXuvo200o7wDS9JImg90AvzJvnvK8TGf4RVHpRL9z3JsjDc7pA
/VNwZUlwH3RTtU/cUulG9LbGevPNYmTfdbpRebMHvqYP3GbZYjBLTPeZTvTC
1UT6YhO9H/t2D7UPlveBkWA2tV5nAH7e3SWbw8Xw+8Wb9og1gM5Uo9bIr/ph
EzL1LPXMIAy3ubuOj/Ujk0I7vGHREFjsFq3orAH4yMXZwRlDUNseERrrPgi9
l3XinYeH4dCvZMXQGkKg7S9eV2XDeJ7/xo5fOwR2finL5J4EOuzbBdo3h5Fa
VOUcaCFF0TDDMwISCL8QPr4ulGJlt+CB5zsJVl3ymFSOfguPTX2u+4ul6DxX
FKSmJ4MwyH7/EdpbZDsGd1zhy2CxOjbR30CGV0kOS3ihI6BdH4+dl8oQFTbp
n6wzihaVkvKClBFYuKg+a+ONYqPI6WjAqVGEVy3YpP8gR34ZDN1WybHu3uc7
1ovGQLnwtwe5XDlenDhfa1c4BrNzHpFqMWMYqyww73IiYF7OSrtrTjC9lF+f
dYSgTUI9UPoNwWeX8VN+bgTzxwvfiiwJ1Pt3xnzyJDhiVbZr/QGCHUtLBRvP
/p+75MzxPRtGYH1/drrIl2CmR5gizyEQPjvq0pBCQKF+MGblKfSr9snRNILl
F7/gRDAJqOknk9UyCXQWnZSqFxP8dO3c0NFcgm/0xbt2VhLoOV4J73iq8ANG
GoNbCfy6cx8ONRLElKr6QEiQ5GLstKyZ4JaS8eQyEcHzqpIJahvB74mBuowe
gpU5zy39OhX+n1O08rcET+ltrRPDBDWUNbPXRgl6+o6HaskImg5axDsSxV9u
vRvM5AS9XWEl3ZMEXuYy39D3BNIvU+1zZhR38wLUU6YJxv0rRfRZgsK1U08r
PhJ8YPX4mX8i6IgP8+qZV+T8b43/T/8NwUFrOA==
            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
         TagBox[{
           RGBColor[0.365248, 0.427802, 0.758297], 
           Thickness[0.01], 
           Opacity[1.], 
           Dashing[{Small, Small}], 
           FaceForm[
            Opacity[0.4]], 
           LineBox[CompressedData["
1:eJw9z2s0FHgYBnCXCGuzIqRNGxWqlSimdtfDiLYlQu1KN0qjC5PtMo4pEuOW
VCfakusiG02otomixuSW0GAbhuMyxIzLzL+zYTQd7Ox+2Pec9zzn+Z3zfnhX
Hj7le1RNRUVlp3L/zfOGpdtFTBbUdrK+9C47ixzvGJG+aTw+3dht+NznHHiX
fc9TK+PhNBHdjclz0FKVlxbIE3C/S1SYtiUC6VIY0c4mwzhjYGNwXSRK69ve
j4VdBaWiZn2xKBrhVQpnpm06Wh21/YJ+YyGfbtYXZ5GDCBGjI0PzGgqEIp52
TzGqW1+d9LDOxP61jiUl0w/Bormq7ttSgK5Y/+cJIxzouI1HTv19D8F+beJL
LlUIquEuER8qg3VSWuTFPC6qvCxvHXv9CPfMx6607HmFQZGWcYwLB7k/0WsZ
c3VYv42dReoq0SAJHA+MbIRu0boD/pbVkFPnc7ut34BKv+TWyODC30B32012
C6477Wvucuchg2KRsEefD7Ugo88LTGtx2c1oo1VIGx788js/07we6alcv2VF
7fh2voS/ZUkj8h87/yCY70DVkUKLKjQhNK+zwsnvHey1F1t70pvh3bia3XBN
AId5x6mhuFY4tO6gmYg78aP77MatJ/jYrLf6drKlEPF50hpqfBsoNoLrvNhu
ZOvmiTVetmPGIGdZcWcPaBNhzt8pOsDftNysfEkveDrhyWVr3oFtf1ocTe9D
Adp9T5wRIC8s2ope3g+n7LW5ueWdsHrKj9JgDKCTar7thbQLsWtamhxXivCI
/Sz1rmc3jtvf9VNwRaD+afTV9Ts98N0gefkNfRCr3IwyYr7oRcZVh6nlJkNI
3XzmSceFPoSmBNLuc4aQ3bT5YXFPP1wipp5lHX4PRiLfNalsAPkqNA8z9WHs
3mtgkxkiQpBUVMjIG0b9zcqYZSsGYf66UWTnMYKf9ZMaCkcHEU5NCbg4NgKD
4cZT7cVD4JZUcDbcEmNUqPD4I+o9ssprvMIpEnDVayxfuA9DsFRQliiQoMne
r2Jm0QgWn94zqRY7ClvKouHM8RF0h5SfXWQ+hpyGBJO6KjEKPRldUW/H4Dxt
3j+VL0Fz+naN2shxfEwoXJyYNIpLzMmwOyYTeOwS0dwbNAaKt+6zv2onoJaS
KFT1Gcf5mnmX3KNSsFwX+CTbT+DrW3M3nNVlCJZkzbINpXi571iDW6kMVYcO
dh/UlUFW/cCxZyeBu86m8oppGaY13zYV7CLYv31uvUAhw5z3hwOhfgRHTGvF
H+dk0Bu0Y836EzjEUo1tFxLYalbwVwQTaO7VOXjfmOC0F+94MFPpFvWXH1AI
5H2CTGkRQZO1LHBA6SpWMzacYoI7q9Zla1wk0Pp1KS+aTbD7yRHjdXEEJur7
JXqPCG7cbqhjpBBstRRtsqsmoNACdPSzCC6cGm9hdBDombHtfJTOqtANgoCg
MiLfi1lDcEXVZnKhkMArJP1eQR1Bdlq4aUYfgavWSSN5C8GLp1O056MEvj5D
wjyl16sYK+ImCE4EcIbfDBK07qCkehJl/8TaIB8h6O9hPu6dJPj+k2GUl9Il
q7Lci+QE2gGCGOZHgg9h1UK6goC3K433r89w+kIdZ5X3vR7Ujs/Kf/+bD//n
P1M0dHE=
            "]]}, Annotation[#, "Charting`Private`Tag#2"]& ]}, {}}, {
       "WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
      StyleBox[
       DynamicBox[
        (Charting`HighlightActionBox["DynamicHighlight", {}, 
         Slot["HighlightElements"], 
         Slot["LayoutOptions"], 
         Slot["Meta"], 
         Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
             Annotation[{
               Directive[
                Opacity[1.], 
                FaceForm[
                 Opacity[0.4]], 
                RGBColor[0.9, 0.36, 0.054], 
                AbsoluteThickness[1.6], 
                Thickness[0.01]], 
               Line[CompressedData["
1:eJxFj3s4FPgax4euzhEJZXXXliFLm0JbfFHYyqVcNqlOtO2UlqGOONiEUNtG
e2KrwWKR0JDozBJqzIxLxIxLw5DLuM00jJ/kUihnzvnjnPd53uf7PN/3/Tzv
+918JsD1B2UKhXJB0f/RcK1CB3FYDJSdYla4PA5CmkukWEM3Fh/vuGuVH70M
zk3XcNuyWFiNRnRi8jKWK80UZs3E4VGHODtxTwiS5FhNC/oZaxh9X5+tDkVh
TfOgzD8BFqVVRnniCARWzFqH7UhCk7mKm8/dGGTSN/Rc25KGEHFwK2PpbWSJ
xByVrjxUNnF/PGyQgpOG5vn5008QQ9uvdGJPFjqiPcvjhln4i91I6NRELs66
NUuibCrgU8XWlpx+DIMbiaFXM9iocNa/d/5lMXL1ZLcaPbjoFy9fE2nDQvoh
Oi/4czWMDjBTSXUZaqXeI96hdVDN2X7KU78SM7YL6Z0GDbClR9nVBbPhqal6
4DdmI361OvGqw54DwbxRij+rEYY2NZkrnDlwGHaasGM3osDwr3v3e3BgVnY7
Y7q1EcHFek+KvudA87Tmp2NzjVD77UZJUiQHTfm6LN1DTTieY6IR9YwDO1sD
aoakCV4fZSYjxlxUbD909R/vFHPRHRsLMy52af8oPDLXBLsMLe04Sy70pMwY
JXU+OvsfKH3pyAUlYYf4jBkf6nsXxs/7KniRefLWWD4SzeOpa7IVPNfz3acE
PuzjWo8FPuLiETP0W+F9PgbL339bX8xF8tXy6TgmH/1dVYGRVVxo+L5xOs3i
w7Ym4OGbOi5uuH7KNmfzceveTPoeARchW+EmbVXwY0nCqR4uxtS889ndfIwH
5Wt5DHNB+xCpxJDwIRUztP4l56Jb/IfnxXd8NOz+Xqg9xYV7A+fxwTk+GIFL
vULmFfudFxf9U1kA2na2Q80SHvRclE2uLBNAdWd1nmglDwyLLXEeGgIcB9+f
os/Dq8V8AXO1AA31za8Xm/JAaQ5bu3idANbftVmqgIfzvi1FxdsEMPQXrVh1
jAeL5Kgu9X0CfE4eKNhynQfhXO+OepoAmdMzcnsJD6tepHZZVQggLdhEj39Y
jZt2q7+mnmtG8LpLdF1qLZLi2W5rc1oQb3Xxp8qpl8gssbYULrTCKKlZJXPh
Ffwy2kut3F5jkjq00UmRy6VuK7P2thCeUfl/sH2aYdZ0kKYjacf8Ms2/zw20
YLf61vs/64uw7olBQ5hjGyyMhb9yojux8H68X7f1NT5opq3Na+9CiFADaa7t
EOxav6FIuxsXuvo200o7wDS9JImg90AvzJvnvK8TGf4RVHpRL9z3JsjDc7pA
/VNwZUlwH3RTtU/cUulG9LbGevPNYmTfdbpRebMHvqYP3GbZYjBLTPeZTvTC
1UT6YhO9H/t2D7UPlveBkWA2tV5nAH7e3SWbw8Xw+8Wb9og1gM5Uo9bIr/ph
EzL1LPXMIAy3ubuOj/Ujk0I7vGHREFjsFq3orAH4yMXZwRlDUNseERrrPgi9
l3XinYeH4dCvZMXQGkKg7S9eV2XDeJ7/xo5fOwR2finL5J4EOuzbBdo3h5Fa
VOUcaCFF0TDDMwISCL8QPr4ulGJlt+CB5zsJVl3ymFSOfguPTX2u+4ul6DxX
FKSmJ4MwyH7/EdpbZDsGd1zhy2CxOjbR30CGV0kOS3ihI6BdH4+dl8oQFTbp
n6wzihaVkvKClBFYuKg+a+ONYqPI6WjAqVGEVy3YpP8gR34ZDN1WybHu3uc7
1ovGQLnwtwe5XDlenDhfa1c4BrNzHpFqMWMYqyww73IiYF7OSrtrTjC9lF+f
dYSgTUI9UPoNwWeX8VN+bgTzxwvfiiwJ1Pt3xnzyJDhiVbZr/QGCHUtLBRvP
/p+75MzxPRtGYH1/drrIl2CmR5gizyEQPjvq0pBCQKF+MGblKfSr9snRNILl
F7/gRDAJqOknk9UyCXQWnZSqFxP8dO3c0NFcgm/0xbt2VhLoOV4J73iq8ANG
GoNbCfy6cx8ONRLElKr6QEiQ5GLstKyZ4JaS8eQyEcHzqpIJahvB74mBuowe
gpU5zy39OhX+n1O08rcET+ltrRPDBDWUNbPXRgl6+o6HaskImg5axDsSxV9u
vRvM5AS9XWEl3ZMEXuYy39D3BNIvU+1zZhR38wLUU6YJxv0rRfRZgsK1U08r
PhJ8YPX4mX8i6IgP8+qZV+T8b43/T/8NwUFrOA==
                "]]}, "Charting`Private`Tag#1"], 
             Annotation[{
               Directive[
                Opacity[1.], 
                FaceForm[
                 Opacity[0.4]], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}], 
                Thickness[0.01]], 
               Line[CompressedData["
1:eJw9z2s0FHgYBnCXCGuzIqRNGxWqlSimdtfDiLYlQu1KN0qjC5PtMo4pEuOW
VCfakusiG02otomixuSW0GAbhuMyxIzLzL+zYTQd7Ox+2Pec9zzn+Z3zfnhX
Hj7le1RNRUVlp3L/zfOGpdtFTBbUdrK+9C47ixzvGJG+aTw+3dht+NznHHiX
fc9TK+PhNBHdjclz0FKVlxbIE3C/S1SYtiUC6VIY0c4mwzhjYGNwXSRK69ve
j4VdBaWiZn2xKBrhVQpnpm06Wh21/YJ+YyGfbtYXZ5GDCBGjI0PzGgqEIp52
TzGqW1+d9LDOxP61jiUl0w/Bormq7ttSgK5Y/+cJIxzouI1HTv19D8F+beJL
LlUIquEuER8qg3VSWuTFPC6qvCxvHXv9CPfMx6607HmFQZGWcYwLB7k/0WsZ
c3VYv42dReoq0SAJHA+MbIRu0boD/pbVkFPnc7ut34BKv+TWyODC30B32012
C6477Wvucuchg2KRsEefD7Ugo88LTGtx2c1oo1VIGx788js/07we6alcv2VF
7fh2voS/ZUkj8h87/yCY70DVkUKLKjQhNK+zwsnvHey1F1t70pvh3bia3XBN
AId5x6mhuFY4tO6gmYg78aP77MatJ/jYrLf6drKlEPF50hpqfBsoNoLrvNhu
ZOvmiTVetmPGIGdZcWcPaBNhzt8pOsDftNysfEkveDrhyWVr3oFtf1ocTe9D
Adp9T5wRIC8s2ope3g+n7LW5ueWdsHrKj9JgDKCTar7thbQLsWtamhxXivCI
/Sz1rmc3jtvf9VNwRaD+afTV9Ts98N0gefkNfRCr3IwyYr7oRcZVh6nlJkNI
3XzmSceFPoSmBNLuc4aQ3bT5YXFPP1wipp5lHX4PRiLfNalsAPkqNA8z9WHs
3mtgkxkiQpBUVMjIG0b9zcqYZSsGYf66UWTnMYKf9ZMaCkcHEU5NCbg4NgKD
4cZT7cVD4JZUcDbcEmNUqPD4I+o9ssprvMIpEnDVayxfuA9DsFRQliiQoMne
r2Jm0QgWn94zqRY7ClvKouHM8RF0h5SfXWQ+hpyGBJO6KjEKPRldUW/H4Dxt
3j+VL0Fz+naN2shxfEwoXJyYNIpLzMmwOyYTeOwS0dwbNAaKt+6zv2onoJaS
KFT1Gcf5mnmX3KNSsFwX+CTbT+DrW3M3nNVlCJZkzbINpXi571iDW6kMVYcO
dh/UlUFW/cCxZyeBu86m8oppGaY13zYV7CLYv31uvUAhw5z3hwOhfgRHTGvF
H+dk0Bu0Y836EzjEUo1tFxLYalbwVwQTaO7VOXjfmOC0F+94MFPpFvWXH1AI
5H2CTGkRQZO1LHBA6SpWMzacYoI7q9Zla1wk0Pp1KS+aTbD7yRHjdXEEJur7
JXqPCG7cbqhjpBBstRRtsqsmoNACdPSzCC6cGm9hdBDombHtfJTOqtANgoCg
MiLfi1lDcEXVZnKhkMArJP1eQR1Bdlq4aUYfgavWSSN5C8GLp1O056MEvj5D
wjyl16sYK+ImCE4EcIbfDBK07qCkehJl/8TaIB8h6O9hPu6dJPj+k2GUl9Il
q7Lci+QE2gGCGOZHgg9h1UK6goC3K433r89w+kIdZ5X3vR7Ujs/Kf/+bD//n
P1M0dHE=
                "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
            "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 1.}, {0., 1.}}, 
             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
             "ImageSize" -> {315, 189.}, "Axes" -> {False, False}, 
             "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
             "AspectRatio" -> 0.6, "DefaultStyle" -> {
               Directive[
                Opacity[1.], 
                FaceForm[
                 Opacity[0.4]], 
                RGBColor[0.365248, 0.427802, 0.758297], 
                AbsoluteThickness[1.6], 
                Dashing[{Small, Small}], 
                Thickness[0.01]], 
               Directive[
                Opacity[1.], 
                FaceForm[
                 Opacity[0.4]], 
                RGBColor[0.9, 0.36, 0.054], 
                AbsoluteThickness[1.6], 
                Thickness[0.01]]}, 
             "HighlightLabelingFunctions" -> <|
              "CoordinatesToolOptions" -> Identity, 
               "ScalingFunctions" -> {{Identity, Identity}, {
                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
             "Function" -> ParametricPlot, "GroupHighlight" -> 
             False|>|>]]& )[<|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 1.}, {0., 1.}}, 
            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
            "ImageSize" -> {315, 189.}, "Axes" -> {False, False}, 
            "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
            "AspectRatio" -> 0.6, "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               FaceForm[
                Opacity[0.4]], 
               RGBColor[0.365248, 0.427802, 0.758297], 
               AbsoluteThickness[1.6], 
               Dashing[{Small, Small}], 
               Thickness[0.01]], 
              Directive[
               Opacity[1.], 
               FaceForm[
                Opacity[0.4]], 
               RGBColor[0.9, 0.36, 0.054], 
               AbsoluteThickness[1.6], 
               Thickness[0.01]]}, 
            "HighlightLabelingFunctions" -> <|
             "CoordinatesToolOptions" -> Identity, 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            ParametricPlot, "GroupHighlight" -> False|>|>], 
        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
         4.503599627370496*^15, -4.503599627370496*^15}}], Selectable -> 
       False]}, 
     Annotation[{{{{}, {}, 
         Annotation[{
           Directive[
            Opacity[1.], 
            FaceForm[
             Opacity[0.4]], 
            RGBColor[0.9, 0.36, 0.054], 
            AbsoluteThickness[1.6], 
            Thickness[0.01]], 
           Line[CompressedData["
1:eJxFj3s4FPgax4euzhEJZXXXliFLm0JbfFHYyqVcNqlOtO2UlqGOONiEUNtG
e2KrwWKR0JDozBJqzIxLxIxLw5DLuM00jJ/kUihnzvnjnPd53uf7PN/3/Tzv
+918JsD1B2UKhXJB0f/RcK1CB3FYDJSdYla4PA5CmkukWEM3Fh/vuGuVH70M
zk3XcNuyWFiNRnRi8jKWK80UZs3E4VGHODtxTwiS5FhNC/oZaxh9X5+tDkVh
TfOgzD8BFqVVRnniCARWzFqH7UhCk7mKm8/dGGTSN/Rc25KGEHFwK2PpbWSJ
xByVrjxUNnF/PGyQgpOG5vn5008QQ9uvdGJPFjqiPcvjhln4i91I6NRELs66
NUuibCrgU8XWlpx+DIMbiaFXM9iocNa/d/5lMXL1ZLcaPbjoFy9fE2nDQvoh
Oi/4czWMDjBTSXUZaqXeI96hdVDN2X7KU78SM7YL6Z0GDbClR9nVBbPhqal6
4DdmI361OvGqw54DwbxRij+rEYY2NZkrnDlwGHaasGM3osDwr3v3e3BgVnY7
Y7q1EcHFek+KvudA87Tmp2NzjVD77UZJUiQHTfm6LN1DTTieY6IR9YwDO1sD
aoakCV4fZSYjxlxUbD909R/vFHPRHRsLMy52af8oPDLXBLsMLe04Sy70pMwY
JXU+OvsfKH3pyAUlYYf4jBkf6nsXxs/7KniRefLWWD4SzeOpa7IVPNfz3acE
PuzjWo8FPuLiETP0W+F9PgbL339bX8xF8tXy6TgmH/1dVYGRVVxo+L5xOs3i
w7Ym4OGbOi5uuH7KNmfzceveTPoeARchW+EmbVXwY0nCqR4uxtS889ndfIwH
5Wt5DHNB+xCpxJDwIRUztP4l56Jb/IfnxXd8NOz+Xqg9xYV7A+fxwTk+GIFL
vULmFfudFxf9U1kA2na2Q80SHvRclE2uLBNAdWd1nmglDwyLLXEeGgIcB9+f
os/Dq8V8AXO1AA31za8Xm/JAaQ5bu3idANbftVmqgIfzvi1FxdsEMPQXrVh1
jAeL5Kgu9X0CfE4eKNhynQfhXO+OepoAmdMzcnsJD6tepHZZVQggLdhEj39Y
jZt2q7+mnmtG8LpLdF1qLZLi2W5rc1oQb3Xxp8qpl8gssbYULrTCKKlZJXPh
Ffwy2kut3F5jkjq00UmRy6VuK7P2thCeUfl/sH2aYdZ0kKYjacf8Ms2/zw20
YLf61vs/64uw7olBQ5hjGyyMhb9yojux8H68X7f1NT5opq3Na+9CiFADaa7t
EOxav6FIuxsXuvo200o7wDS9JImg90AvzJvnvK8TGf4RVHpRL9z3JsjDc7pA
/VNwZUlwH3RTtU/cUulG9LbGevPNYmTfdbpRebMHvqYP3GbZYjBLTPeZTvTC
1UT6YhO9H/t2D7UPlveBkWA2tV5nAH7e3SWbw8Xw+8Wb9og1gM5Uo9bIr/ph
EzL1LPXMIAy3ubuOj/Ujk0I7vGHREFjsFq3orAH4yMXZwRlDUNseERrrPgi9
l3XinYeH4dCvZMXQGkKg7S9eV2XDeJ7/xo5fOwR2finL5J4EOuzbBdo3h5Fa
VOUcaCFF0TDDMwISCL8QPr4ulGJlt+CB5zsJVl3ymFSOfguPTX2u+4ul6DxX
FKSmJ4MwyH7/EdpbZDsGd1zhy2CxOjbR30CGV0kOS3ihI6BdH4+dl8oQFTbp
n6wzihaVkvKClBFYuKg+a+ONYqPI6WjAqVGEVy3YpP8gR34ZDN1WybHu3uc7
1ovGQLnwtwe5XDlenDhfa1c4BrNzHpFqMWMYqyww73IiYF7OSrtrTjC9lF+f
dYSgTUI9UPoNwWeX8VN+bgTzxwvfiiwJ1Pt3xnzyJDhiVbZr/QGCHUtLBRvP
/p+75MzxPRtGYH1/drrIl2CmR5gizyEQPjvq0pBCQKF+MGblKfSr9snRNILl
F7/gRDAJqOknk9UyCXQWnZSqFxP8dO3c0NFcgm/0xbt2VhLoOV4J73iq8ANG
GoNbCfy6cx8ONRLElKr6QEiQ5GLstKyZ4JaS8eQyEcHzqpIJahvB74mBuowe
gpU5zy39OhX+n1O08rcET+ltrRPDBDWUNbPXRgl6+o6HaskImg5axDsSxV9u
vRvM5AS9XWEl3ZMEXuYy39D3BNIvU+1zZhR38wLUU6YJxv0rRfRZgsK1U08r
PhJ8YPX4mX8i6IgP8+qZV+T8b43/T/8NwUFrOA==
            "]]}, "Charting`Private`Tag#1"], 
         Annotation[{
           Directive[
            Opacity[1.], 
            FaceForm[
             Opacity[0.4]], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}], 
            Thickness[0.01]], 
           Line[CompressedData["
1:eJw9z2s0FHgYBnCXCGuzIqRNGxWqlSimdtfDiLYlQu1KN0qjC5PtMo4pEuOW
VCfakusiG02otomixuSW0GAbhuMyxIzLzL+zYTQd7Ox+2Pec9zzn+Z3zfnhX
Hj7le1RNRUVlp3L/zfOGpdtFTBbUdrK+9C47ixzvGJG+aTw+3dht+NznHHiX
fc9TK+PhNBHdjclz0FKVlxbIE3C/S1SYtiUC6VIY0c4mwzhjYGNwXSRK69ve
j4VdBaWiZn2xKBrhVQpnpm06Wh21/YJ+YyGfbtYXZ5GDCBGjI0PzGgqEIp52
TzGqW1+d9LDOxP61jiUl0w/Bormq7ttSgK5Y/+cJIxzouI1HTv19D8F+beJL
LlUIquEuER8qg3VSWuTFPC6qvCxvHXv9CPfMx6607HmFQZGWcYwLB7k/0WsZ
c3VYv42dReoq0SAJHA+MbIRu0boD/pbVkFPnc7ut34BKv+TWyODC30B32012
C6477Wvucuchg2KRsEefD7Ugo88LTGtx2c1oo1VIGx788js/07we6alcv2VF
7fh2voS/ZUkj8h87/yCY70DVkUKLKjQhNK+zwsnvHey1F1t70pvh3bia3XBN
AId5x6mhuFY4tO6gmYg78aP77MatJ/jYrLf6drKlEPF50hpqfBsoNoLrvNhu
ZOvmiTVetmPGIGdZcWcPaBNhzt8pOsDftNysfEkveDrhyWVr3oFtf1ocTe9D
Adp9T5wRIC8s2ope3g+n7LW5ueWdsHrKj9JgDKCTar7thbQLsWtamhxXivCI
/Sz1rmc3jtvf9VNwRaD+afTV9Ts98N0gefkNfRCr3IwyYr7oRcZVh6nlJkNI
3XzmSceFPoSmBNLuc4aQ3bT5YXFPP1wipp5lHX4PRiLfNalsAPkqNA8z9WHs
3mtgkxkiQpBUVMjIG0b9zcqYZSsGYf66UWTnMYKf9ZMaCkcHEU5NCbg4NgKD
4cZT7cVD4JZUcDbcEmNUqPD4I+o9ssprvMIpEnDVayxfuA9DsFRQliiQoMne
r2Jm0QgWn94zqRY7ClvKouHM8RF0h5SfXWQ+hpyGBJO6KjEKPRldUW/H4Dxt
3j+VL0Fz+naN2shxfEwoXJyYNIpLzMmwOyYTeOwS0dwbNAaKt+6zv2onoJaS
KFT1Gcf5mnmX3KNSsFwX+CTbT+DrW3M3nNVlCJZkzbINpXi571iDW6kMVYcO
dh/UlUFW/cCxZyeBu86m8oppGaY13zYV7CLYv31uvUAhw5z3hwOhfgRHTGvF
H+dk0Bu0Y836EzjEUo1tFxLYalbwVwQTaO7VOXjfmOC0F+94MFPpFvWXH1AI
5H2CTGkRQZO1LHBA6SpWMzacYoI7q9Zla1wk0Pp1KS+aTbD7yRHjdXEEJur7
JXqPCG7cbqhjpBBstRRtsqsmoNACdPSzCC6cGm9hdBDombHtfJTOqtANgoCg
MiLfi1lDcEXVZnKhkMArJP1eQR1Bdlq4aUYfgavWSSN5C8GLp1O056MEvj5D
wjyl16sYK+ImCE4EcIbfDBK07qCkehJl/8TaIB8h6O9hPu6dJPj+k2GUl9Il
q7Lci+QE2gGCGOZHgg9h1UK6goC3K433r89w+kIdZ5X3vR7Ujs/Kf/+bD//n
P1M0dHE=
            "]]}, "Charting`Private`Tag#2"]}}, {}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 1.}, {0., 1.}}, 
         "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
         "ImageSize" -> {315, 189.}, "Axes" -> {False, False}, 
         "LabelStyle" -> {FontFamily -> "Times", FontSize -> 16}, 
         "AspectRatio" -> 0.6, "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            FaceForm[
             Opacity[0.4]], 
            RGBColor[0.365248, 0.427802, 0.758297], 
            AbsoluteThickness[1.6], 
            Dashing[{Small, Small}], 
            Thickness[0.01]], 
           Directive[
            Opacity[1.], 
            FaceForm[
             Opacity[0.4]], 
            RGBColor[0.9, 0.36, 0.054], 
            AbsoluteThickness[1.6], 
            Thickness[0.01]]}, 
         "HighlightLabelingFunctions" -> <|
          "CoordinatesToolOptions" -> Identity, 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         ParametricPlot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], 
    AspectRatio -> 0.6, Axes -> {False, False}, AxesLabel -> {None, None}, 
    AxesOrigin -> {0, 0}, BaseStyle -> 16, 
    DefaultBaseStyle -> {"PlotGraphics", "Graphics"}, DisplayFunction -> 
    Identity, Epilog -> {
      Directive[
       GrayLevel[0.5]], 
      Dashing[{0, Small, Small, Small}], 
      TagBox[
       ConicHullRegionBox[{{0.25, 1}, {0.25, 2}}], "InfiniteLine"], 
      GeometricTransformationBox[
       InsetBox[
        BoxData[
         FormBox[
          InterpretationBox[
           Cell[
            BoxData[
             FormBox[
              StyleBox[
              "\"\\!\\(\\*SubscriptBox[\\(F\\), \\(\[Beta]\\)]\\)(\
\[ScriptCapitalT])\"", FontFamily -> "Times", 14, 
               GrayLevel[0], TextAlignment -> Center, StripOnInput -> False], 
              TextForm]], "InlineText"], 
           Text[
            Style[
            "\!\(\*SubscriptBox[\(F\), \(\[Beta]\)]\)(\[ScriptCapitalT])", 
             FontFamily -> "Times", 14, 
             GrayLevel[0], TextAlignment -> Center]]], TraditionalForm]], {
        0.2, 0.45}], {{{0, -1}, {1, 0}}, Center}]}, 
    Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
       FormBox[
        TagBox["\"Climate Exposure\"", HoldForm], TraditionalForm], None}, {
       FormBox[
        TagBox["\"Market Exposure\"", HoldForm], TraditionalForm], None}}, 
    FrameStyle -> Automatic, 
    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
    GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
      GrayLevel[0.5, 0.4]], ImagePadding -> All, ImageSize -> 315, 
    LabelStyle -> {FontFamily -> "Times"}, 
    Method -> {
     "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "ScalingFunctions" -> None}, PlotInteractivity :> True, PlotLabel -> 
    FormBox["\"Achievable Exposures\"", TraditionalForm], 
    PlotRange -> {{0., 1.}, {0., 1.}}, PlotRangeClipping -> True, 
    PlotRangePadding -> {{
       Scaled[0.05], 
       Scaled[0.05]}, {
       Scaled[0.05], 
       Scaled[0.05]}}, Ticks -> {Automatic, Automatic}], 
   FormBox[
    FormBox[
     TemplateBox[{
       StyleBox["\"Voluntary Disclosure\"", 16, StripOnInput -> False], 
       StyleBox["\"Mandatory Disclosure\"", 16, StripOnInput -> False]}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    PointSize[0.5], 
                    EdgeForm[None], 
                    Opacity[1.], 
                    FaceForm[
                    Opacity[0.4]], 
                    RGBColor[0.9, 0.36, 0.054], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {
                    LineBox[{{0, 12.5}, {40, 12.5}}]}}, {
                    Directive[
                    PointSize[0.5], 
                    EdgeForm[None], 
                    Opacity[1.], 
                    FaceForm[
                    Opacity[0.4]], 
                    RGBColor[0.9, 0.36, 0.054], 
                    AbsoluteThickness[1.6], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
              
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    PointSize[0.5], 
                    EdgeForm[None], 
                    Opacity[1.], 
                    FaceForm[
                    Opacity[0.4]], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    Thickness[0.09]], {
                    LineBox[{{0, 12.5}, {40, 12.5}}]}}, {
                    Directive[
                    PointSize[0.5], 
                    EdgeForm[None], 
                    Opacity[1.], 
                    FaceForm[
                    Opacity[0.4]], 
                    RGBColor[0.365248, 0.427802, 0.758297], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 12.5}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
                    Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"EdgeForm", "[", "None", "]"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"FaceForm", "[", 
                    RowBox[{"Opacity", "[", "0.4`", "]"}], "]"}], ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.9, 0.36, 0.054]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"EdgeForm", "[", "None", "]"}], ",", 
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"FaceForm", "[", 
                    RowBox[{"Opacity", "[", "0.4`", "]"}], "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.365248, 0.427802, 0.758297]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}, {
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.9726015205101*^9, 3.972653054858519*^9},
 CellLabel->
  "Out[280]=",ExpressionUUID->"6468aecd-73f3-40df-9bd7-18be441b93c5"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1728, 1003},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.5 Inherited,
FrontEndVersion->"14.3 for Mac OS X ARM (64-bit) (July 8, 2025)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"0454664c-04ad-4b4f-94e0-d80ef9ccff7a"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 154, 3, 99, "Section",ExpressionUUID->"8bc885e8-b020-471c-86e2-7c36b1e020a6"],
Cell[579, 20, 15756, 419, 962, "Code",ExpressionUUID->"386c8e1c-8fef-4449-bfca-d6e19a5cac47"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16372, 444, 155, 3, 99, "Section",ExpressionUUID->"5a2d085c-54f5-4087-ab66-74dc7c6a1af2"],
Cell[16530, 449, 2666, 72, 229, "Code",ExpressionUUID->"daf4b0d1-9267-421b-98df-2814dc4432ad"],
Cell[CellGroupData[{
Cell[19221, 525, 7748, 182, 516, "Input",ExpressionUUID->"d9dcc3fb-6e18-4f22-aa6b-1a4325329656"],
Cell[26972, 709, 681, 14, 66, "Message",ExpressionUUID->"4168251f-01d7-41fc-8d7a-3703f07bb792"],
Cell[27656, 725, 20755, 439, 315, "Output",ExpressionUUID->"82530d07-05eb-420a-8069-05c61dbea7a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48448, 1169, 7806, 178, 578, "Input",ExpressionUUID->"7fec8897-79cf-450d-b89f-66feb960221a"],
Cell[56257, 1349, 28083, 558, 337, "Output",ExpressionUUID->"8cb1edcd-0380-4907-a6ae-332435f06756"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84377, 1912, 7873, 182, 516, "Input",ExpressionUUID->"79a5cdab-d520-4904-9590-02c5569dca4b"],
Cell[92253, 2096, 1263, 23, 39, "Message",ExpressionUUID->"c01614f5-0927-49fa-a2e3-621518a1c707"],
Cell[93519, 2121, 28108, 560, 327, "Output",ExpressionUUID->"4ad244d1-de33-47b2-9466-484e72bc3bef"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[121676, 2687, 153, 3, 99, "Section",ExpressionUUID->"1ebcc3bc-8014-40e9-bf43-8640a0fc76a9"],
Cell[CellGroupData[{
Cell[121854, 2694, 4964, 120, 306, "Input",ExpressionUUID->"e24826c3-98ff-42bc-b61c-61ef964fc8ab"],
Cell[126821, 2816, 22375, 442, 259, "Output",ExpressionUUID->"b0ddc679-c21b-4dc3-b8c1-bee71a020092"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149233, 3263, 6477, 161, 381, "Input",ExpressionUUID->"256eb373-e143-4cbe-aef6-24bb8bb2365c"],
Cell[155713, 3426, 26993, 546, 254, "Output",ExpressionUUID->"7aec3c9e-8685-4eb7-9684-96145a85e155"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[182755, 3978, 153, 3, 99, "Section",ExpressionUUID->"151743c1-5702-4aac-ad4a-e4d332d03ef0"],
Cell[CellGroupData[{
Cell[182933, 3985, 6458, 152, 377, "Input",ExpressionUUID->"ef3b9f5e-632c-45d1-a7c3-d98f4d31fc39"],
Cell[189394, 4139, 22091, 439, 267, "Output",ExpressionUUID->"9ea91e50-e42f-4bd0-8e1a-bec998032332"]
}, Open  ]],
Cell[CellGroupData[{
Cell[211522, 4583, 3553, 85, 231, "Input",ExpressionUUID->"2f649c72-a5d9-4793-a28e-dcf26637abad"],
Cell[215078, 4670, 21422, 426, 267, "Output",ExpressionUUID->"0b1bfd58-4be0-4739-adb5-8fc3f5dcfe7b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[236549, 5102, 155, 3, 99, "Section",ExpressionUUID->"d4e75caf-19f7-4499-998b-6d4c19c1526b"],
Cell[236707, 5107, 10830, 265, 472, "Code",ExpressionUUID->"c9eda70c-4502-41fe-9a5c-b14005ebaef0"],
Cell[247540, 5374, 8094, 205, 542, "Code",ExpressionUUID->"1dac4ecf-8c9f-48b4-a426-52417b38d255"],
Cell[CellGroupData[{
Cell[255659, 5583, 3310, 71, 206, "Input",ExpressionUUID->"d32b6c46-0977-49d1-92cf-3a120f87ad6a"],
Cell[258972, 5656, 52990, 1042, 300, "Output",ExpressionUUID->"168cde3a-ee17-4b92-afed-3f919acdd63e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[311999, 6703, 3998, 97, 334, "Input",ExpressionUUID->"c3586a3e-b1bd-4f78-9b25-dfbb0ce9c367"],
Cell[316000, 6802, 27086, 516, 313, "Output",ExpressionUUID->"8d868b93-9d6f-4c5c-852a-3866333c6f07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[343123, 7323, 3911, 86, 259, "Input",ExpressionUUID->"ea37cfd3-b88f-47a4-8e41-2dd1695de76c"],
Cell[347037, 7411, 46265, 930, 296, "Output",ExpressionUUID->"f728a605-0ab0-440e-9796-c21e0c96d78d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[393351, 8347, 155, 3, 99, "Section",ExpressionUUID->"09746187-a08c-4773-93ea-f466fabf93ef"],
Cell[393509, 8352, 8086, 229, 461, "Code",ExpressionUUID->"584798d8-bf47-4ab3-bead-65af5e232a21"],
Cell[CellGroupData[{
Cell[401620, 8585, 6858, 158, 498, "Input",ExpressionUUID->"b5b31f33-6668-44d8-bb94-de917d014b00"],
Cell[408481, 8745, 17272, 357, 286, "Output",ExpressionUUID->"02389f35-b57e-4c69-8e9b-9cc94799f0da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[425790, 9107, 4145, 101, 368, "Input",ExpressionUUID->"a6189833-633d-486f-b583-8f18f1729127"],
Cell[429938, 9210, 12202, 255, 285, "Output",ExpressionUUID->"55c8ab92-e038-43fb-b2a2-060dcfe86ff4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[442177, 9470, 4228, 103, 339, "Input",ExpressionUUID->"6db96167-0a3c-4ca1-b2d7-01d1514fefae"],
Cell[446408, 9575, 405, 9, 34, "Print",ExpressionUUID->"1d069ac2-beb7-49c2-a507-b962d654aba8"],
Cell[446816, 9586, 466, 11, 39, "Message",ExpressionUUID->"01c52faa-797d-4957-9379-c852eac1f4ec"],
Cell[447285, 9599, 24759, 461, 285, "Output",ExpressionUUID->"c8293531-19b4-457b-acde-350edca67811"]
}, Open  ]],
Cell[CellGroupData[{
Cell[472081, 10065, 4305, 104, 339, "Input",ExpressionUUID->"a41a5194-e62a-4d66-b875-7142daf0c942"],
Cell[476389, 10171, 345, 7, 34, "Print",ExpressionUUID->"e403b586-6f0e-4668-9868-d5f49dc982b7"],
Cell[476737, 10180, 466, 11, 39, "Message",ExpressionUUID->"98bf6afd-e546-4550-bfa2-234818f6f5ce"],
Cell[477206, 10193, 25473, 473, 290, "Output",ExpressionUUID->"4864c693-d77c-4e86-87cd-69d3a7db5948"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[502728, 10672, 157, 3, 99, "Section",ExpressionUUID->"93f1cc7b-3111-48c7-8b9c-d3f37668bad9"],
Cell[502888, 10677, 7732, 211, 897, "Code",ExpressionUUID->"f71b1dd9-46c0-452b-86f0-52873072d1fa"],
Cell[CellGroupData[{
Cell[510645, 10892, 4094, 108, 354, "Input",ExpressionUUID->"865450da-58a0-4523-9af1-5ddbf80dc450"],
Cell[514742, 11002, 641, 14, 39, "Message",ExpressionUUID->"a36536c4-9492-402a-a69b-0b1b3c2e4ac9"],
Cell[515386, 11018, 643, 14, 39, "Message",ExpressionUUID->"133457b8-adce-484c-b992-eec8ceff496d"],
Cell[516032, 11034, 64679, 1174, 380, "Output",ExpressionUUID->"b6a8d417-60f6-47a3-a72d-f2dd6cab88f0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[580760, 12214, 175, 3, 99, "Section",ExpressionUUID->"44a422f4-e493-4c3b-8f91-f4dcd0d008f0"],
Cell[580938, 12219, 366, 8, 44, "Input",ExpressionUUID->"9bf89daf-fddb-486a-927e-227194688b43"],
Cell[581307, 12229, 9862, 250, 481, "Code",ExpressionUUID->"b192c15d-0350-4399-a352-2f16282cfa66"],
Cell[591172, 12481, 334, 8, 44, "Input",ExpressionUUID->"e678420e-59b9-4090-b483-bd9ac46bff44"],
Cell[591509, 12491, 11868, 300, 619, "Code",ExpressionUUID->"c3a9c14a-4a9a-4273-ab43-a493d892bedf"],
Cell[603380, 12793, 1167, 31, 104, "Code",ExpressionUUID->"6a451c4c-9d4d-46f9-96c9-b6cf18c16439"],
Cell[CellGroupData[{
Cell[604572, 12828, 6834, 166, 505, "Input",ExpressionUUID->"93a0d442-6d74-464c-b537-44cd6e1e2783"],
Cell[611409, 12996, 38537, 791, 451, "Output",ExpressionUUID->"ef3dca18-78c5-4be3-911b-765185eaba7d"]
}, Open  ]],
Cell[649961, 13790, 7244, 184, 387, "Code",ExpressionUUID->"5e2cb1ff-4a0c-484b-a292-0c7e05d3f287"],
Cell[657208, 13976, 1714, 47, 254, "Code",ExpressionUUID->"b2bc6f98-5afc-4400-9683-9922edf42f6b"],
Cell[CellGroupData[{
Cell[658947, 14027, 4467, 110, 363, "Input",ExpressionUUID->"26e3e341-c3b3-43b5-8420-72855ee6f7f4"],
Cell[663417, 14139, 27892, 569, 457, "Output",ExpressionUUID->"6468aecd-73f3-40df-9bd7-18be441b93c5"]
}, Open  ]]
}, Open  ]]
}
]
*)

